(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
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
(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
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'dir.
6 matches
Mail list logo