16 lines
305 B
Haskell
16 lines
305 B
Haskell
|
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]
|