DouKaku?beta

Comment detail

アレイのuniq (Nested Flatten) 
(vector-uniq xs)
=>#(3 1 4 5 9 2 6 8 7)
1
2
3
4
5
6
7
(define xs #(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9))

(define (vector-uniq vec)
  (let ((ls (vector->list vec)))
    (do ((ls ls (cdr ls))
         (acc '() (if (memv (car ls) acc) acc (cons (car ls) acc))))
        ((null? ls) (list->vector (reverse! acc))))))

Index

Feed

Other

Link

Pathtraq

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