Variable-length quantity: Difference between revisions
m
→{{header|Haskell}}
Line 710:
to :: Int -> Int -> [Int]
to _ 0 = []
to base i =
in go (div i base) ++ [mod i base]
from :: Int -> [Int] -> Int
Line 716 ⟶ 718:
main :: IO ()
main =
▲ let b = 8
fromBase = from b▼
toBase = to b▼
mapM_
(putStrLn .
intercalate " <-> " .
(((:) . (
[2097152, 2097151]
where
b = 8
{{out}}
<pre>10000000 <-> 2097152
| |||