DouKaku?beta

Comment detail

アレイのuniq (Nested Flatten)
＃457や＃462を思いつけるようになりたい。 
1
2
3
4
5
6
7
8
(define (uniq lst)
  (fold
   (lambda (e l)
     (cond ((null? l) (cons e l))
           ((member e l) l)
           (else (append l (list e)))))
   '()
   lst))
こちらこそ。foldを使うなんて思い付きませんorz
リストの処理で、foldを使うのならこういうのも。最後にreverseするのが残念な感じですが。!無しで。 
1
2
3
4
5
6
(define (uniq a)
  (reverse
    (fold (lambda (e knil)
            (if (member e knil)
              knil
              (cons e knil))) () a)))

毎回 (null? l) する無駄や (append l (list e)) あたりの汚さが
消えてすっきりキレイに!
なるほど納得。ありがとうございます。

Index

Feed

Other

Link

Pathtraq

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