DouKaku?beta

Comment detail

重複する要素を取り除く (Nested Flatten) 
Schemeの解がでていなかったので投稿(Gaucheに特化していますが)。
あと長いリストだとapplyでエラーになることがあります。
1
2
3
4
(use gauche.collection)

(define (only-unique lst)
  (apply append (filter (compose (cut = 1 <>) length) (group-collection lst))))
非常に多くのリストをappendするときは(apply append ...)ではなくsrfi-1のconcatenateを使うと引数の数の制限を受けません。

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]