Opcjonalne argumenty i kropki w schemacie

Question

Tak więc, próbuję zobaczyć, jak działają funkcje, które mogą przyjmować dowolną liczbę argumentów?

Próbowałem to

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

Ale wydawało się, że nie została właściwie stosowania CDR do xs, ale przechodząc ((2 3 4)) w kiedy przeszedł przez nią w debugger. Więc próbowałem to

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

myśląc: „ha, chciałbym zobaczyć zdać CDR w teraz”, ale pojawia się błąd: „aplikacji: zła składnia (. Nielegalne użycie` '), w: (plus * (+ xh). t) "

Co się dzieje?

(mogę uzyskać wersję dodatku do pracy, albo przez

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

Albo nawet

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

tak, dodatek nie jest problemem, jak przerywana praca rzeczy jest.)

Answer 1

Twoja ostatnia wersja to poprawny sposób przekazania listy numerów jako danych wejściowych do plus - musisz musi użyć apply, aby to zrobić. (Cóż, albo to, albo unikaj wszystkiego tak, jak robiłeś to z foldl.) Używanie kropki w aplikacji nie robi tego, co twoim zdaniem powinno - sprawia, że ​​program czyta się inaczej.