Ilość zmiennej długości (określany również jako VLQ lub uintvar) to sposób kodowania do 28-bitowej wartości całkowitej z wykorzystaniem tylko tylu bajtów w razie potrzeby. Zostało to wykorzystane w formacie pliku MIDI jako sposób na zminimalizowanie rozmiaru niektórych danych zdarzeń.

Sposób działania jest dość prosty. Jako seria bajtów big-endian, najbardziej znaczącym bitem (MSB) każdego bajtu jest znak 1wskazujący, że następuje kolejny bajt VLQ. Pozostałe 7 bitów każdego bajtu stanowi zdekodowaną wartość.

Przykład (z Wikipedii):

[ 0x86, 0xc3, 0x17 ] => 106903

Dodatkowe informacje: Wikipedia , Some Guy .

Wyzwanie:

Biorąc pod uwagę ilość o zmiennej długości, przekonwertuj ją na wartość całkowitą.

Wejście:

Lista od jednego do czterech bajtów lub 32-bitowy typ wartości reprezentujący prawidłową wartość VLQ liczby całkowitej.

Wynik:

Wartość całkowita wejścia VLQ.

Zasady i punktacja:

• To jest golf golfowy, więc wygrywa najkrótsza odpowiedź w bajtach dla każdego języka .
• Obowiązują standardowe reguły i domyślne reguły we / wy .
• Luki zabronione (oczywiście).
• Podaj link z testem swojego kodu ( TIO.run itp.).
• Zalecane jest jasne wyjaśnienie Twojej odpowiedzi.
• Wbudowane, które obsługują tę konwersję, nie są zbanowane, jednak nieużywanie ich jest o wiele bardziej interesujące.

Przypadki testowe:

Input (VLQ)                   Output (int)

[                   0x00 ] => 0
[                   0x07 ] => 7
[                   0x7f ] => 127
[             0x81, 0x00 ] => 128
[             0xC0, 0x00 ] => 8192
[             0xff, 0x7f ] => 16383
[       0x81, 0x80, 0x00 ] => 16384
[       0x86, 0xc3, 0x17 ] => 106903
[       0xbd, 0x84, 0x40 ] => 1000000
[       0xff, 0xff, 0x7f ] => 2097151 
[ 0xC0, 0x80, 0x80, 0x00 ] => 134217728  
[ 0xFF, 0xFF, 0xFF, 0x7F ] => 268435455  

Uwaga: nie musisz używać literałów szesnastkowych do reprezentowania bajtu jako danych wejściowych lub wyjściowych. Możesz użyć dziesiętnej literału ( [ 129, 128, 0 ]), liczby całkowitej ( 0x80818000) lub innej rozsądnej reprezentacji bajtów / oktetów, jeśli lepiej pasuje do Twojej platformy. Format jest elastyczny, o ile reprezentuje 1-4 bajty / oktety.

Golf daleko!

APL (dzaima / APL) , 8 bajtów

128(⊣⊥|)

Wypróbuj online!

W jaki sposób:

128(⊣⊥|) ⍝ Anonymous function
128   |  ⍝ Input modulo 128
    ⊣⊥   ⍝ Decoded from base 128

Pari / GP , 24 bajty

a->fromdigits(a%128,128)

Wypróbuj online!

Wolfram Language (Mathematica) , 25 bajtów

Fold[128#+#2&,#~Mod~128]&

Wypróbuj online!

Wolfram Language (Mathematica) , 25 bajtów

#~Mod~128~FromDigits~128&

Wypróbuj online!

J , 10 bajtów

128#.128|]

Wypróbuj online!

Czerpiąc inspirację z odpowiedzi APL J Salle'a.

• 128|] Reszta liczb wejściowych podzielona przez 128
• 128#. Interpretowane jako cyfry numeru podstawowego 128

Galaretka , 6 bajtów

%Ø⁷ḅØ⁷

Wypróbuj online!

Odpowiednik odpowiedzi Pari / GP Alephalpha .

$n$$n \mod 128$$128$

05AB1E , 6 bajtów

žy%žyβ

Wypróbuj online!

128_^{$2^7$}

Stax , 8 bajtów

å→♂á╣>nt

Uruchom i debuguj

Algorytm:

• Konwertuj każdy bajt na 7-bitową tablicę o stałej szerokości.
• Spłaszcz tablice bitów w jeden.
• Konwertuj tablicę bitów z powrotem na liczbę.

JavaScript (ES6), 29 bajtów

-2 bajty dzięki @Shaggy

Pobiera dane wejściowe jako tablicę bajtów.

a=>a.map(p=c=>p=p<<7|c&127)|p

Wypróbuj online!

APL + WIN, 22 bajty

Monituje o wektor liczb całkowitych:

2⊥¯32↑,0 1↓⍉(8⍴2)⊤¯4↑⎕

Wypróbuj online! Dzięki uprzejmości Dyalog Classic

Wyjaśnienie:

¯4↑⎕ Pad the vector to 4 integers from the right.

⍉(8⍴2)⊤ Convert to a matrix of 8 bit values.

,0 1↓ drop the MSBs and flatten to a vector.

2⊥¯32↑ pad bit vector to 32 bits starting at LSB and convert back to integer.

Stax , 12 bajtów

ü╫ôà¡k2Wù}a☺

Uruchom i debuguj na staxlang.xyz!

Rozpakowane (14 bajtów) i objaśnienie:

rk128%128i^#*+
r                 Reverse 'cuz big-endian
 k                Fold from the left using block:
  128%              Modulize by 128
      128i^#        Push 128 to the power of (one plus the iteration index)
            *       Multiply
             +      Add to the total
                  Implicit print

Stax ma wbudowaną konwersję bazy, ale działa tylko na łańcuchach. To prawie działa na listach liczb całkowitych, chociaż; problem tkwi w obsłudze Staxa0 .

Ciąg jest listą liczb całkowitych. Gdy używasz takiej listy jako łańcucha, wszelkie zera są automatycznie konwertowane na 32 jako ładny skrót do spacji. Od czasu wbudowania|b do konwersji bazowej traktuje swój argument jako ciąg, a nie jako surową listę liczb całkowitych, każdy przypadek z zerem zakończy się niepowodzeniem.

10 bajtów, zero na zerach

Ç┘_A♥∙QZ►╣
{128%m128|b    Unpacked
{128%m         Modulize each by 128
      128|b    Convert from base 128

Uruchom i debuguj na staxlang.xyz!

C (gcc) , 48 bajtów

Pobiera na wejściu liczbę całkowitą w kolejności big-endian, która jest taka sama jak tablica bajtów.

f(i,j){for(j=0;j|=i&127,i&128;j<<=7,i>>=8);i=j;}

Wypróbuj online!

C (gcc) , 53 bajty

Jeśli potrzebna jest tablica bajtów:

f(c,j)char*c;{for(j=0;j|=*c&127,*c++&128;j<<=7);c=j;}

Wypróbuj online!

MathGolf , 14 bajtów

ê♣%hrx♣▬^mÅε*Σ

Wprowadź jako liczby całkowite.

Wypróbuj online.

Mam wrażenie, że może być krótszy. To trochę denerwujące, że MathGolf ma wbudowaną 1-bajtową funkcję stałej 128, ale nie ma konwersji podstawowej (z wyjątkiem binarnej / szesnastkowej).

Wyjaśnienie:

ê              # Take the inputs as integer-array
 ♣%            # Take modulo-128 on each value in this array
   h           # Push the length of the array (without popping the array itself)
    r          # Pop and push a list in the range [0, length)
     x         # Reverse the array to (length, 0]
      ♣▬       # Take 128 to the power of each value in this array
        ^      # Zip the two lists together to create pairs
         mÅ    # Map each pair to (using the following two commands):
           ε*  #  Reduce by multiplication (so basically the product of the pair)
             Σ # After multiplying each pair, take the total sum
               # (after which the entire stack joined together is output implicitly)

Python 3 , 58 49 bajtów

-9 bajtów dzięki @Chas i @ ar4093

lambda x:int("".join(bin(a|128)[3:]for a in x),2)

Wypróbuj online!

lub

lambda x:int("".join(f"{a%128:07b}"for a in x),2)

Wypróbuj online!

Wprowadzanie za pomocą listy liczb całkowitych.

binFunkcja Pythona dodaje „0b” na początku łańcucha, więc należy je zdjąć, zanim można je połączyć. Nie zachowuje również zer wiodących, więc jeśli nie ma żadnych (czyli ostatniego bajtu), należy je dodać z powrotem. A jeśli istnieje wiodący (czyli wszystkie oprócz ostatniego bajtu), który należy usunąć jako dobrze.Dzięki @Chas za ustalenie, że zawsze ustawiając pierwszy bit, mogę po prostu usunąć pierwsze trzy znaki i gotowe.

Najwyraźniej (według @ ar4093) formatfunkcja pozwala nie tylko nie mieć przedrostka „0b”, ale także usunąć pierwszy bit i dopełnienie do 7 znaków jednocześnie.

PHP , 42 bajty

foreach($argv as$a)$r=$r<<7|$a&127;echo$r;

Wypróbuj online! i zweryfikuj wszystkie przypadki testowe .

Wejście za pomocą argumentów wiersza poleceń, wyjście do STDOUT.

Japt , 10 8 bajtów

Pobiera dane wejściowe jako tablicę liczb całkowitych.

muIÑ ìIÑ

Spróbuj lub uruchom wszystkie przypadki testowe (nagłówek w obu konwertuje z formatu wejściowego używanego w wyzwaniu)

Zaoszczędzono 2 bajty, czerpiąc inspirację z rozwiązania alephalpha .

muIÑ ìIÑ     :Implicit input of integer array
m            :Map
 u           :  Modulo
  I          :    64
   Ñ         :    Multiply by 2
     ì       :Convert to decimal
      IÑ     :  From base 64*2

Węgiel drzewny , 11 bajtów

Ｉ↨﹪θ¹²⁸¦¹²⁸

Wypróbuj online! Link jest do pełnej wersji kodu. Pobiera dane wejściowe jako tablicę. Wyjaśnienie:

   θ        Input array
  ﹪ ¹²⁸    Elementwise modulo 128
 ↨      ¹²⁸ Convert from base 128
Ｉ          Cast to string for implicit print

Python 2 , 42 bajty

f=lambda a:a>[]and a[-1]%128+f(a[:-1])*128

Wypróbuj online!

Pakiet Windows, 76 bajtów

:a
@set/ax="%1&127",y=y*128+x
@if %2. neq . @shift&goto:a
@echo %y%

Przekaż parametry z prefiksem „0x” i spacją między (np. 0xC0 0x80 0x80 0x00).