가변 길이 량 (이라고도 VLQ 또는 uintvar) 필요한만큼의 바이트로서 만 사용하여 28 비트 정수 값까지 인코딩하는 방법이다. 이것은 특정 이벤트 데이터의 크기를 최소화하는 방법 으로 MIDI 파일 형식 으로 사용되었습니다 .

작동 방식은 매우 간단합니다. 빅 엔디안 바이트 시리즈로서, 각 바이트의 최상위 비트 (MSB)는 1다른 VLQ 바이트가 뒤따른다는 것을 나타내는 것입니다. 각 바이트의 나머지 7 비트는 디코딩 된 값을 구성합니다.

예 (Wikipedia에서) :

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

추가 참조 : Wikipedia , Some Guy .

도전:

가변 길이 수량이 주어지면 정수 값으로 변환하십시오.

입력:

1에서 4 바이트의 목록 또는 정수의 유효한 VLQ를 나타내는 32 비트 값 유형입니다.

산출:

VLQ 입력의 정수 값입니다.

규칙과 득점 :

• 이것은 코드 골프이므로 각 언어에 대한 바이트 단위의 최단 답변이 승리합니다.
• 표준 규칙 및 기본 I / O 규칙이 적용됩니다.
• 허점 은 물론 금지되어 있습니다.
• 코드 테스트 ( 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  

참고 : 바이트를 입력 또는 출력으로 나타 내기 위해 16 진 리터럴을 사용할 필요는 없습니다. 플랫폼에 더 적합한 경우 십진 리터럴 ( [ 129, 128, 0 ]), 정수 ( 0x80818000) 또는 기타 적절한 바이트 / 옥텟 표현을 사용할 수 있습니다. 형식은 1-4 바이트 / 옥텟을 나타내는 한 유연합니다.

멀리 골프!

APL (dzaima / APL) , 8 바이트

128(⊣⊥|)

온라인으로 사용해보십시오!

어떻게:

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

Pari / GP , 24 바이트

a->fromdigits(a%128,128)

온라인으로 사용해보십시오!

Wolfram Language (Mathematica) , 25 바이트

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

온라인으로 사용해보십시오!

Wolfram Language (Mathematica) , 25 바이트

#~Mod~128~FromDigits~128&

온라인으로 사용해보십시오!

J , 10 바이트

128#.128|]

온라인으로 사용해보십시오!

J Salle의 APL 답변에서 영감을 얻습니다.

• 128|] 입력 수의 나머지를 128로 나눈 값
• 128#. 기본 128 숫자의 숫자로 해석

젤리 , 6 바이트

%Ø⁷ḅØ⁷

온라인으로 사용해보십시오!

alephalpha의 Pari / GP answer 와 같습니다 .

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

05AB1E , 6 바이트

žy%žyβ

온라인으로 사용해보십시오!

128_^{$2^7$}

Stax , 8 바이트

å→♂á╣>nt

실행 및 디버깅

연산:

• 각 바이트를 고정 폭 7 비트 배열로 변환하십시오.
• 비트 배열을 하나로 병합합니다.
• 비트 배열을 다시 숫자로 변환하십시오.

자바 스크립트 (ES6), 29 바이트

@Shaggy 덕분에 -2 바이트

바이트 배열로 입력을받습니다.

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.

Stax , 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에는 기본 변환 기능이 내장되어 있지만 문자열에서만 작동합니다. 그러나 정수 목록에서는 거의 작동합니다. 문제는 Stax에서 처리하는 것입니다 0.

문자열은 정수 목록입니다. 이러한 목록을 문자열로 사용하는 경우 공백을 나타내는 축약 형으로 0이 자동으로 32로 변환됩니다. |b기본 변환 용 내장 함수 는 피연산자를 원시 정수 목록이 아닌 문자열로 취급하므로 0 인 경우 실패합니다.

10 바이트, 0에서 실패

Ç┘_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Åε*Σ

정수로 입력하십시오.

온라인으로 사용해보십시오.

나는 이것이 더 짧을 수 있다는 느낌을 가지고있다 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 바이트

@Chas 및 @ ar4093 덕분에 -9 바이트

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함수는 문자열의 시작 부분에 "0b"를 추가하므로 연결하기 전에 이륙해야합니다. 또한 선행 0을 유지하지 않으므로 다시 바이트를 추가 해야하는 경우 (일명 마지막 바이트)가 없으면 다시 제거 해야하는 선행 바이트 (일부는 마지막 바이트 제외)가있는 경우 잘. @Chas 덕분에 항상 첫 번째 비트를 설정하면 처음 세 문자 만 제거하고 완료 할 수 있습니다.

분명히 (@ ar4093에 따르면)이 format기능은 '0b'접두사를 가질뿐만 아니라 첫 번째 비트를 제거하고 동시에 7 문자까지 채 웁니다 .

PHP , 42 바이트

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

온라인으로 사용해보십시오! 그리고 모든 테스트 케이스를 확인합니다 .

명령 행 인수를 통해 입력하고로 출력합니다 STDOUT.

Japt , 10 8 바이트

입력을 정수 배열로 취합니다.

muIÑ ìIÑ

시도 해봐 하거나 모든 테스트 사례를 실행하십시오 (챌린지에 사용 된 입력 형식의 두 변환 헤더)

alephalpha의 솔루션 에서 영감을 얻어 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

파이썬 2 , 42 바이트

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

온라인으로 사용해보십시오!

윈도우 배치, 76 바이트

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

접두사 "0x"와 사이의 간격 (예 : 0xC0 0x80 0x80 0x00)을 전달하십시오.