ปริมาณความยาวตัวแปร (ยังเรียกว่าVLQหรือuintvar) คือวิธีการเข้ารหัสได้ถึงค่าจำนวนเต็ม 28 บิตโดยใช้เพียงเป็นไบต์มากที่สุดเท่าที่จำเป็น สิ่งนี้ถูกใช้ในรูปแบบไฟล์ MIDIเพื่อลดขนาดของข้อมูลเหตุการณ์บางอย่าง

วิธีการทำงานค่อนข้างง่าย ในฐานะที่เป็นชุดใหญ่ของไบต์ไบต์บิตที่สำคัญที่สุด (MSB) ของแต่ละไบต์คือการ1บ่งชี้ว่า VLQ ไบต์อื่นดังต่อไปนี้ ส่วนที่เหลืออีก 7 บิตของแต่ละไบต์เป็นค่าที่ถอดรหัส

ตัวอย่าง (จาก Wikipedia):

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

อ้างอิงเพิ่มเติม: วิกิพีเดีย , บางผู้ชาย

ท้าทาย:

รับปริมาณที่มีความยาวผันแปรได้แปลงเป็นค่าจำนวนเต็ม

การป้อนข้อมูล:

รายการของหนึ่งถึงสี่ไบต์หรือชนิดค่า 32- บิตแทน VLQ ที่ถูกต้องของจำนวนเต็ม

เอาท์พุท:

ค่าจำนวนเต็มของอินพุต VLQ

กฎและเกณฑ์การให้คะแนน:

• นี่คือ code-golf ดังนั้นคำตอบที่สั้นที่สุดเป็นไบต์สำหรับแต่ละภาษาที่ชนะ
• กฎระเบียบมาตรฐานและเริ่มต้น 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  

หมายเหตุ: คุณไม่จำเป็นต้องใช้ตัวอักษรฐานสิบหกเพื่อแทนไบต์เป็นอินพุตหรือเอาต์พุตของคุณ คุณสามารถใช้ตัวอักษรทศนิยม ( [ 129, 128, 0 ]), จำนวนเต็ม (0x80818000 ) หรือการแทนไบต์ / octet ที่สมเหตุสมผลอื่น ๆ หากเหมาะสมกับแพลตฟอร์มของคุณ รูปแบบมีความยืดหยุ่นตราบใดที่มันหมายถึง 1-4 ไบต์ / octets

กอล์ฟออกไป!

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 (Mathematica)ขนาด 25 ไบต์

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

ลองออนไลน์!

ภาษา Wolfram (Mathematica)ขนาด 25 ไบต์

#~Mod~128~FromDigits~128&

ลองออนไลน์!

J , 10 ไบต์

128#.128|]

ลองออนไลน์!

รับแรงบันดาลใจจากคำตอบ APL ของ J Salle

• 128|] ส่วนที่เหลือของตัวเลขอินพุตหารด้วย 128
• 128#. ตีความว่าเป็นตัวเลขของฐาน 128 หมายเลข

เยลลี่ขนาด 6 ไบต์

%Ø⁷ḅØ⁷

ลองออนไลน์!

เทียบเท่ากับคำตอบ Pari / GP ของ alephalphaคำตอบของ

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

05AB1E , 6 ไบต์

žy%žyβ

ลองออนไลน์!

128_^{$2^7$}

Stax , 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.

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 มีการแปลงฐานในตัว แต่ใช้งานได้กับสตริงเท่านั้น มันเกือบจะทำงานในรายการของจำนวนเต็มแม้ว่า; ปัญหาอยู่ในการจัดการของ Stax0ปัญหาอยู่ในการจัดการของสแตกซ์

สตริงคือรายการของจำนวนเต็ม เมื่อคุณใช้รายการดังกล่าวเป็นสตริงเลขศูนย์ใด ๆ จะถูกแปลงเป็น 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 ไบต์

รับจำนวนเต็มตามลำดับ big-endian เป็นอินพุตซึ่งเป็นลำดับเดียวกับอาร์เรย์ไบต์

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)

Python 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" ไว้ที่จุดเริ่มต้นของสตริงดังนั้นสิ่งเหล่านั้นจะต้องถูกนำออกก่อนที่จะสามารถต่อกันได้ นอกจากนี้ยังไม่เก็บค่าศูนย์นำหน้าดังนั้นหากไม่มี (หรือที่รู้จักว่าไบต์สุดท้าย) จะต้องเพิ่มกลับเข้ามาและหากมีค่านำหน้า (aka ทั้งหมดยกเว้นไบต์สุดท้าย) ที่ต้องถูกลบออกเป็น ดี.ขอบคุณ @Chas ที่คิดออกมาว่าโดยการตั้งค่าบิตแรกเสมอฉันสามารถลบอักขระสามตัวแรกออกไปและทำได้

เห็นได้ชัดว่า (ตาม @ ar4093) formatฟังก์ชั่นนี้ช่วยให้ไม่เพียง แต่มีส่วนนำหน้า '0b' เท่านั้น แต่ยังลบบิตแรกและแพ็ดดิงถึง 7 ตัวอักษรทั้งหมดในเวลาเดียวกัน

PHP , 42 ไบต์

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

ลองออนไลน์! และตรวจสอบกรณีทดสอบทั้งหมด

การป้อนข้อมูลผ่านทาง args STDOUTบรรทัดคำสั่งออกไป

Japt , 10 8 ไบต์

รับอินพุตเป็นอาร์เรย์ของจำนวนเต็ม

muIÑ ìIÑ

ลองใช้หรือเรียกใช้กรณีทดสอบทั้งหมด (ส่วนหัวในทั้งสองแปลงจากรูปแบบอินพุตที่ใช้ในการทดสอบ)

ที่บันทึกไว้ 2 ไบต์โดยรับแรงบันดาลใจจากการแก้ปัญหาของ 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

ถ่าน 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 Batch ขนาด 76 ไบต์

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

พารามิเตอร์ Pass นำหน้าด้วย "0x" และช่องว่างระหว่าง (เช่น 0xC0 0x80 0x80 0x00)