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
[email protected]
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp
