Data commit

Task/Variable-length-quantity/Haskell/variable-length-quantity-1.hs

@@ -0,0 +1,15 @@
+import Numeric (readOct, showOct)
+import Data.List (intercalate)
+
+to :: Int -> String
+to = flip showOct ""
+
+from :: String -> Int
+from = fst . head . readOct
+
+main :: IO ()
+main =
+  mapM_
+    (putStrLn .
+     intercalate " <-> " . (pure (:) <*> to <*> (return . show . from . to)))
+    [2097152, 2097151]

Task/Variable-length-quantity/Haskell/variable-length-quantity-2.hs

@@ -0,0 +1,24 @@
+import Data.List (intercalate)
+
+to :: Int -> Int -> [Int]
+to _ 0 = []
+to base i = to base q <> [r]
+  where
+    (q, r) = quotRem i base
+
+from :: Int -> [Int] -> Int
+from base = foldl1 ((+) . (base *))
+
+
+--------------------------- TEST ---------------------------
+main :: IO ()
+main =
+  mapM_
+    (putStrLn .
+     intercalate " <-> " .
+     (((:) . (=<<) show . toBase) <*> (return . show . fromBase . toBase)))
+    [2097152, 2097151]
+  where
+    b = 8
+    fromBase = from b
+    toBase = to b