2006-09-23 head Haskell ふつけるメモ main = do cs <- getContents putStr $ firstNLines 10 cs firstNLines n cs = unlines $ take n $ lines cs 関数定義 関数名 [仮引数列] = 本体 : take n xs , unlines ss