Gaucheでuniq（そろそろやめよう）

なんてことだ。gauche.sequence の group-sequenceがhaskellのgroupと同じだとは

>>(use gauche.sequence)
=>#<undef>

>>(group-sequence '(1 1 2 3 3 2 2 4))
=>((1 1) (2) (3 3) (2 2) (4))

>>(map car (group-sequence '(1 1 2 3 3 2 2 4)))
=>(1 2 3 2 4)

あと、gauche.collectionもおもしろそう。

>>(group-collection '(1 1 4 4 2 3 3 2 2 4))
=>((1 1) (4 4 4) (2 2 2) (3 3))

sort+uniqみたいなもんね。まあ、並び替えはしないけど。