On Wed, 23 Apr 2008, Aykut Caglayan <[EMAIL PROTECTED]> writes:
> Ornegin soyle bir listem var:>'(0 1 1 0 0 1 1)
> ve ben su cevabi ariyorum:> '(1 2 5 6)
CL-USER> (defun positions (item list)
"POSITION derivate returns list of positions of the
supplied ITEM occuring in the specified LIST."
(labels ((collect-positions (position accum list)
(cond
((endp list) accum)
((eql item (first list))
(collect-positions (1+ position)
(cons position accum)
(rest list)))
(t (collect-positions (1+ position) accum (rest
list))))))
(nreverse (collect-positions 0 nil list))))
STYLE-WARNING: redefining POSITIONS in DEFUN
POSITIONS
CL-USER> (positions 1 '(0 1 1 0 0 1 1))
(1 2 5 6)
Ağız tadınıza uygun olarak KEY ve TEST seçeneklerini de -- POSITION
işlevinde olduğu gibi -- POSITIONS'a da ekleyebilirsiniz.
İyi çalışmalar.
_______________________________________________
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
