DouKaku?beta

Add tags

Add tags to the following comment 
同じ事をscheme(gauche)で。
わかりやすい流れですねこれ。
pa$はcurry化です。
1
2
3
4
5
6
7
(use srfi-1)

(define (uniq a)
  (if (null? a) a
    (cons (car a) (uniq (remove (pa$ = (car a)) (cdr a))))))

(print (uniq '(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9)))

Add tags

The input will be splited to tags with space.

Index

Feed

Other

Link

Pathtraq

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