Şemada isteğe bağlı argümanlar ve noktalar

Question

Yani, herhangi bir sayıdaki argümanı kabul edebilecek fonksiyonların nasıl çalıştığını görmeye çalışıyorum?

Bu

(define (plus x . xs) 
    (if 
    (null? xs) x 
    (plus (+ x (car xs)) . (cdr xs)))) 
(plus 1 2 3 4) 

çalıştı Ama aslında xs cdr uygulayarak, ama ayıklayıcısında içinden basan içinde ((2 3 4)) geçen olmadığını gibiydi edilir. "Ha, ben şimdi de cdr geçmesi görmek istiyorum", ama bir hata alıyorum: Yani bu

(define (plus* x . xs) 
    (if 
    (null? xs) x 
    (let ((h (car xs)) 
     (t (crd xs)))    
    (plus* (+ x h) . t)))) 

Düşünmeyi çalıştı "uygulaması: Kötü sözdizimi (.` Arasında 'kaçak kullanım) içinde: (artı * (+ xh). t) "

Neler oluyor?

(I çalışmalara ek bir sürümünü almak ya

(define (add . xs) 
    (foldl + 0 xs)) 

Hatta

(define (plus x . xs) 
    (if 
    (null? xs) x 
    (apply plus (cons (+ x (car xs)) (cdr xs))))) 

yüzden, ilave şeyler nasıl çalıştığını noktalı sorun değil, tarafından edebilirsiniz.)

Answer 1

Son sürümünüz, sayıların listesini plus numaralı girdi olarak iletmenin doğru yoludur - siz kullanmalısınızBunu yapmak için 10. (Peki ya, ya da foldl ile yaptığınız gibi tüm şeyden kaçınmak.) Uygulamada bir nokta kullanmak gerektiğini düşündüğünüz şeyi yapmıyor - programın farklı okumasını sağlıyor.