Merhaba, On Dec 11 05:42, Alphan Bayazit wrote: > (define bul > (lambda (toplam elde carpan adet l) > (if (not (pair? l)) '() > (let* ((h (car l)) > (t (cdr l)) > (son (+ elde (* h carpan))) > (kalan (- toplam son))) > (cond > ((or (< adet 1) (< kalan 0)) '()) > ((not (pair? t)) (if (and (= kalan 0) (= adet 1)) > (list (list son)) '())) > (else (append (map (lambda (x) (cons son x)) > (bul kalan 0 1 (- adet 1) t)) > (bul toplam son (* carpan 10) adet t))))))))
Şu an elimin altında düzgün bir Scheme debugger'ı yok. (Kimin var ki?) DIPSLAY, FORMAT kullanarak ilerlemeye çalıştığımda da bazı soru işaretleri kaldı aklımda. Acaba yukarıdaki fonksiyonun işleyişi hakkında biraz bahsetmeniz mümkün mü? (Özellikle merak ettiğim, aranan sayıların birden fazla haneli olması olasılığının nasıl değerlendirildiği.) İ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
