aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

34
Task/Variable-length-quantity/Pluto/variable-length-quantity.pluto Normal file
View file

@ -0,0 +1,34 @@
local fmt = require "fmt"
local function to_octets(n)
local s = fmt.bin(n)
local le = #s
local r = le % 7
local d = le // 7
if r > 0 then
d += 1
s = fmt.lpad(s, 7 * d, "0")
end
local chunks = s:split(""):chunk(7):map(|ch| -> ch:concat(""))
local last = "0" .. chunks:back()
s = chunks:slice(1, -2):map(|ch| -> "1" .. ch):concat("") .. last
return s:split(""):chunk(8):map(|ch| -> tonumber(ch:concat(""), 2))
end
local function from_octets(octets)
local s = ""
for octets as oct do
local bin = fmt.bin(oct)
bin = fmt.lpad(bin, 7, "0")
s ..= bin:sub(-7)
end
return tonumber(s, 2)
end
local tests = {2097152, 2097151}
for tests as test do
local octets = to_octets(test)
local display = octets:mapped(|oct| -> "Ox" .. string.format("%02x", oct))
io.write($"{test} -> {fmt.swrite(display, " ", "")} -> ")
print(from_octets(octets))
end