まだまだいろいろありそうだけど取り合えずはここまで。 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 $ sor…