« [Comp] ふつける | トップページ | [本] 返した本 »

2006年8月10日 (木)

[Comp] ふつける


4章まで読み終えた。
関数合成と部分適用を使わないsort。



import List
main = do cs <- getContents
putStr $ unlines $ sort $ lines cs


同じくuniq。sortよりちょっと複雑。



import List
main = do cs <- getContents
putStr $ unlines $ uniq $ lines cs
uniq :: [String] -> [String]
uniq xs = map head $ group xs

|

« [Comp] ふつける | トップページ | [本] 返した本 »

コメント

この記事へのコメントは終了しました。

トラックバック


この記事へのトラックバック一覧です: [Comp] ふつける:

« [Comp] ふつける | トップページ | [本] 返した本 »