(defun karistir (lst)
(sort lst
#'>
:key (lambda (item)
(declare (ignore item))
(random 1.0))))
(defun luup (kere)
(loop for i from 0 to kere collect (nth (mod i 7) (karistir '(a b c d e f
g)))))
"GNU Emacs 22.1.1 (i386-apple-darwin8.10.1, Carbon Version 1.6.0)
of 2007-07-22 on plume.sr.unh.edu - Aquamacs Distribution 1.1"
SLIME 2007-01-07
Common Music 2.10.0' de calismadi
Bi de LispWorks'de denedim, calisti__
Kor talih bu mu?
____________________________________________________________________________________
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
