Optionale Argumente und Punkte im Schema

Question

Also versuche ich zu sehen, wie Funktionen, die eine beliebige Anzahl von Argumenten akzeptieren können, funktionieren?

ich versucht, dieses

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

Aber wird schien, dass es nicht wirklich cdr xs anwandte, aber vorbei ((2 3 4)) in, wenn ich durch sie im Debugger trat. Also habe ich versucht, diese

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

Denken: „ha, ich möchte Sie in jetzt passieren cdr sehen“, aber ich erhalte eine Fehlermeldung: „Anwendung: schlechte Syntax (. Illegale Nutzung von` ') in: (plus * (+ xh). t) "

Was ist los?

(ich kann eine Version zusätzlich zur Arbeit kommen, entweder durch

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

Oder sogar

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

so der Zusatz ist nicht das Problem, wie punktierte Dinge funktionieren ist.)

Answer 1

Ihre letzte Version ist der korrekte Weg, um eine Liste von Zahlen als Eingaben an plus - Sie müssenzu übergeben 10 um dies zu tun. (Nun, entweder das oder vermeide die ganze Sache, wie du es mit foldl getan hast.) Die Verwendung eines Punktes in der Anwendung tut nicht das, was du denkst - es lässt das Programm anders lesen.