Bende sorunsuz çalıştı aşağıdaki programlarınız:
([EMAIL PROTECTED]:~$clisp --version
GNU CLISP 2.41 (2006-10-13) (built 3380454718) (memory 3380454923)
Software: GNU C 4.1.2 20060928 (prerelease) (Ubuntu 4.1.1-13ubuntu5))
[5]>(defun karistir (lst)
(sort lst
#'>
:key (lambda (item)
(declare (ignore item))
(random 1.0))))
KARISTIR
[6](defun luup (kere)
(loop for i from 0 to kere collect (nth (mod i 7) (karistir '(a b c d e f
g)))))
LUUP
[11]> (luup 10)
(B D B A B E E A C B F)
On Wed, 30 Apr 2008 03:36:50 -0700 (PDT), Aykut Caglayan <[EMAIL PROTECTED]>
wrote:
> 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
_______________________________________________
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
