2007-07-07から1日間の記事一覧
倍数になる13進数 どう書く?orgを解いてみた。 import System.Environment calc13 :: (Num a, Read a) => [Char] -> a -> a calc13 [] i = i calc13 (x:xs) i = calc13 xs $ i * 13 + (read [x]) match :: String -> Bool match i = (==) 0 $ rem ( flip ca…
倍数になる13進数 どう書く?orgを解いてみた。 import System.Environment calc13 :: (Num a, Read a) => [Char] -> a -> a calc13 [] i = i calc13 (x:xs) i = calc13 xs $ i * 13 + (read [x]) match :: String -> Bool match i = (==) 0 $ rem ( flip ca…