その15(2x2)を追加しました。

倍数になる13進数に挑戦。最初に書いたのはこれです。 main = print $ head $ filter (\n -> (radix_13_10 n `mod` n) == 0) [10..] radix_13_10 :: Int -> Int radix_13_10 0 = 0 radix_13_10 n = (radix_13_10 (n `div` 10)) * 13 + (n `mod` 10) できた、…

今回は条件を満たす行を取り除くに挑戦。最初に書いたのはこれでした。 main = do cs <- getContents putStr $ unlines $ filter match $ lines cs where match :: String -> Bool match [] = True match s = if head s == '#' then False else True 投稿さ…

衣服を追加しました。

ふつうのHaskellプログラミングは最後の方は眺めただけで一旦終了。いくつかサンプルのプログラムを書いて練習しようと思います。今回の題材はピラミッドを作る。こんなのを書きました。 import System defaultLevel = 4 main = do args <- getArgs do let l…