- プログラミングのお題スレ Part5
64 ：デフォルトの名無しさん[sage]：2014/09/24(水) 01:22:30.87 ID:9bMladVh - >>54 Haskell
import Control.Monad
main = p54 3 3 >> putChar '\n' >> p54 6 3 >> putChar '\n' >> p54 10 5
p54 w h = forM [0..h-1] $ (>> putChar '\n') . forM [0..w] . p54' (h - 1)
p54' h y x = putChar $ if x `mod` h == y || x `mod` h == h - y then '!' else '-'
|
|