shakakuのHaskell日記

2006-06-28

ふつけるを読みはじめる。

新鮮で面白い。

練習問題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

ゲスト



トラックバック - http://haskell.g.hatena.ne.jp/shakaku/20060628