Кількість змінної довжини (також називається VLQ або uintvar) - це спосіб кодування до 28-бітового цілого числа, використовуючи лише стільки байтів, скільки необхідно. Це було використано у форматі файлу MIDI як спосіб мінімізувати розмір певних даних про події.

Спосіб роботи досить простий. Як велика-ендіанська серія байтів, найзначніший біт (MSB) кожного байта - це 1вказівка ​​на те, що наступний байт VLQ слідує. Решта 7 біт кожного байту становлять декодоване значення.

Приклад (з Вікіпедії):

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

Додаткові посилання: Wikipedia , Some Guy .

Виклик:

Враховуючи величину змінної довжини, перетворіть її на ціле число.

Вхід:

Список від одного до чотирьох байтів або тип 32-бітного значення, що представляє дійсний VLQ цілого числа.

Вихід:

Ціле значення вводу VLQ.

Правила та оцінка:

• Це код-гольф, тому найкоротша відповідь у байтах за кожну мову виграє.
• Застосовуються стандартні правила та правила вводу / виводу за замовчуванням .
• Лазівки заборонені (звичайно).
• Будь ласка, надайте посилання з тестом для вашого коду ( TIO.run тощо).
• Дуже рекомендується чітке пояснення вашої відповіді.
• Вбудовані модулі , які обробляють це перетворення не заборонені, проте НЕ їх використання є набагато цікавішим.

Тестові приклади:

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  

Примітка: від вас не потрібно використовувати шістнадцяткові букви, щоб представляти байт як ваш вхід чи вихід. Ви можете використовувати десятковий буквальний ( [ 129, 128, 0 ]), ціле число (0x80818000 ) або будь-яке інше розумне байт / октетне представлення, якщо воно краще підходить для вашої платформи. Формат є гнучким, якщо він становить 1-4 байт / октет.

Гольф геть!

APL (dzaima / APL) , 8 байт

128(⊣⊥|)

Спробуйте в Інтернеті!

Як:

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

Парі / GP , 24 байти

a->fromdigits(a%128,128)

Спробуйте в Інтернеті!

Мова Вольфрама (Mathematica) , 25 байт

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

Спробуйте в Інтернеті!

Мова Вольфрама (Mathematica) , 25 байт

#~Mod~128~FromDigits~128&

Спробуйте в Інтернеті!

J , 10 байт

128#.128|]

Спробуйте в Інтернеті!

Отримавши натхнення у відповіді APL J Salle.

• 128|] Залишок вхідних чисел ділиться на 128
• 128#. Інтерпретується як цифри базового 128 числа

Желе , 6 байт

%Ø⁷ḅØ⁷

Спробуйте в Інтернеті!

Еквівалентна відповіді алефалфи Парі / ГП .

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

05AB1E , 6 байт

žy%žyβ

Спробуйте в Інтернеті!

128_^{$2^7$}

Стакса , 8 байт

å→♂á╣>nt

Запустіть і налагоджуйте його

Алгоритм:

• Перетворіть кожен байт у 7-бітовий масив фіксованої ширини.
• Зрівняти масиви бітів в один.
• Перетворити бітовий масив назад в число.

JavaScript (ES6), 29 байт

-2 байти завдяки @Shaggy

Приймає введення як масив байтів.

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

Спробуйте в Інтернеті!

APL + WIN, 22 байти

Підказки для вектора цілих чисел:

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

Спробуйте в Інтернеті! Надано Dyalog Classic

Пояснення:

¯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.

Стакс , 12 байт

ü╫ôà¡k2Wù}a☺

Запустіть і налагодьте його на staxlang.xyz!

Розпаковано (14 байт) та пояснення:

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 має вбудовану базову конверсію, але вона працює лише на рядках. Він майже працює на списках цілих чисел; проблема полягає в поводженні Стакса 0.

Рядок - це список цілих чисел. Коли ви використовуєте такий список як рядок, будь-які нулі автоматично перетворюються на 32, як приємна скорочення для пробілів. Оскільки вбудований |bдля базової конверсії трактує операнд як рядок, а не як необроблений список цілих чисел, будь-який випадок із нулем вийде з ладу.

10 байт, не вдається на нулі

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

Запустіть і налагодьте його на staxlang.xyz!

C (gcc) , 48 байт

Бере ціле число в порядку великого ендіану як вхідне, що є тим самим порядком, що і байтовий масив.

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

Спробуйте в Інтернеті!

C (gcc) , 53 байти

Якщо потрібен байтовий масив:

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

Спробуйте в Інтернеті!

MathGolf , 14 байт

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

Введіть як цілі числа.

Спробуйте в Інтернеті.

У мене є відчуття, що це може бути коротшим. Це трохи прикро, що MathGolf має вбудований 1-байт для постійної 128, але не перетворення бази (крім бінарної / шістнадцяткової).

Пояснення:

ê              # 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)

Пітон 3 , 58 49 байт

-9 байт завдяки @Chas та @ ar4093

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

Спробуйте в Інтернеті!

або

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

Спробуйте в Інтернеті!

Введіть через список цілих чисел.

binФункція Python додає "0b" на початок рядка, тому їх потрібно зняти, перш ніж їх можна об'єднати. Він також не зберігає провідні нулі, тому якщо таких немає (він же останній байт), їх потрібно додати ще. добре.Завдяки @Chas за те, що завжди встановивши перший біт, я можу просто видалити перші три символи і зробити це.

Мабуть (згідно @ ar4093), formatфункція дозволяє не тільки не мати префікса "0b", але також видаляти перший біт і додавати до 7 символів одночасно.

PHP , 42 байти

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

Спробуйте в Інтернеті! і перевірити всі тестові випадки .

Введіть через аргументи командного рядка, виведіть в STDOUT.

Japt , 10 8 байт

Вводить введення як масив цілих чисел.

muIÑ ìIÑ

Спробуй це або запустіть усі тестові випадки (заголовок в обох перетвореннях від вхідного формату, що використовується у виклику)

Збережено 2 байти, взявши натхнення з розчину алефальфи .

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

Вугілля деревне , 11 байт

Ｉ↨﹪θ¹²⁸¦¹²⁸

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Приймає дані як масив. Пояснення:

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

Python 2 , 42 байти

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

Спробуйте в Інтернеті!

Пакет Windows, 76 байт

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

Параметри передачі з префіксом "0x" і пробіл між (наприклад, 0xC0 0x80 0x80 0x00).