Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Variable-length-quantity/Haskell/variable-length-quantity-1.hs
+++ b/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]