Selamlar, Chris'in cevabini scheme sentaksinda yazildigi icin kullanamadim. VolkanYazici'nin asagidaki onerisini kullandim.
(defun karistir (lst) (sort lst #'> :key (lambda (item) (declare (ignore item)) (random 1.0)))) Ancak bu kodu 'loop'a oturttugumda CM> (defun luup (kere) (loop for i from 0 to kere collect (nth (mod i 7) (karistir '(a b c d e f g))))) CM> (luup 10) (A B NIL NIL NIL NIL NIL A NIL NIL NIL) bu cevabi aliyorum. Dolayisyla isime yarayamiyor__ Onerisi olan..? ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ _______________________________________________ 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