リスト操作

まだまだいろいろありそうだけど取り合えずはここまで。

Hugs.Base> :l List
List> partition (/=',') "12,3,4"
("1234",",,")
List> takeWhile (/=',') "12,12,22"
"12"
List> sort [2,1,4,3]
[1,2,3,4]
List> nub [2,1,4,3,2]
[2,1,4,3]
List> group $ sort [2,1,4,3,2]
[[1],[2,2],[3],[4]]
List> intersperse ',' "abcdef"
"a,b,c,d,e,f"
List> intersperse ",,," ["abc","def","ghi"]
["abc",",,,","def",",,,","ghi"]