smeghead #486(2007/07/10 13:20 GMT) [ Common Lisp ] Rating0/0=0.00
(print (uniq '(3 1 4 1 5 9 2 6 5 3 5 8 9 7 9))) ;他の人たちのコードを見てると勉強になります。
1 2 3 4 5 6 7 8
(defun uniq (lst) (labels ((rec (l acc) (if (null l) (reverse acc) (let ((top (car l)) (rests (cdr l))) (if (member top acc) (rec rests acc) (rec rests (cons top acc))))))) (rec lst nil)))
Rating0/0=0.00-0+
[ reply ]
smeghead
#486()
[
Common Lisp
]
Rating0/0=0.00
(defun uniq (lst) (labels ((rec (l acc) (if (null l) (reverse acc) (let ((top (car l)) (rests (cdr l))) (if (member top acc) (rec rests acc) (rec rests (cons top acc))))))) (rec lst nil)))Rating0/0=0.00-0+
[ reply ]