DouKaku?beta

Comment detail

アレイのuniq (Nested Flatten)
「hashを使」います。 vectorでもlistでもsequenceなら効きます。 
1
2
3
4
5
6
(use gauche.sequence)
(define (uniq a)
  (let1 h (make-hash-table 'equal?)
    (define (p x) (or (hash-table-exists? h x)
                      (begin (hash-table-put! h x #t) #f)))
    (remove-to (class-of a) p a)))

Index

Feed

Other

Link

Pathtraq

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