On Jan 11 01:35, Mehmet Yavuz Selim Soyturk wrote: > (define (paralar hedef birimler) > (cond > ((= hedef 0) '(()) ) > ((< hedef 0) '() ) > ((null? birimler) '()) > (else > (append > (map (lambda (lst) (cons (car birimler) lst)) > (paralar (- hedef (car birimler)) birimler)) > (paralar hedef (cdr birimler))))))
Yardım eden herkese çok teşekkür ederim. (Alphan Bey'in ki de aynı şekilde işliyor.) Kod böyle gerçekten çok güzel oldu. Ellerinize sağlık. İyi çalışmalar. _______________________________________________ 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