(defun my-replace (lst)
(cond ((null lst) '())
((eq (car lst) 'a) (append (list 'e) (my-replace (cdr lst
((eq (car lst) 'b) (append (list 'd) (my-replace (cdr lst
(t (append (list (car lst)) (my-replace (cdr lst))
Bu sablonu L-sistem'i ya da bir fraktalli
Selamlar,
Ornegin soyle bir listem var:>'(0 1 1 0 0 1 1)
ve ben su cevabi ariyorum:> '(1 2 5 6)
Ivedilikle cevabinizi bekliyorum
Tesekkurler
Be a better friend, newshound, and
know-it-all with Yahoo!
Ornegin soyle bir listem var '(a b c) >
bu listeyi cagirdigimda ongoremedigim (randomized) bir siralamayla gelmesini
istiyorum;
Ornegin '(b a c) olarak__
Eminim bunun da cok basit bir yolu vardir benim bulamadigim_
Tesekkurler
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 'loo
(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
Selamlar
ornegin 2.6 ise 3.0; 2.4 ise 2.0; 2.5 ise de 2.0 olmali.
Bunun adi interpolation midir?
___
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
Son zamanlarda Chuck, Pd ve Impromptu gibi araclarla, "live coding" bilgisayar
muzigi icrasina yeni iddialar getirmistir.
http://toplap.org/index.php/Main_Page
Gecen hafta UK'nin bir yerinde gerceklestirilen "live coding" gecesinden
video'lar icin su linke bakiniz. Kullanilan sentaks Scheme'di
7 matches
Mail list logo