ふつけるを読みはじめる。
新鮮で面白い。
練習問題7.9をやってみる。
main = do cs <-getContents putStrLn (fold60 cs) fold60 :: String -> String fold60 "" = "" fold60 st = x ++ "\n" ++ (fold60 y) where (x,y) = splitAt 60 st
でいいじゃん、と思ったらだめだった...orz
