Đối số và dấu chấm tùy chọn trong lược đồ

Question

Vì vậy, tôi đang cố gắng xem các hàm có thể chấp nhận bất kỳ số đối số nào hoạt động?

Tôi cố gắng này

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

Nhưng dường như là nó đã không thực sự áp dụng cdr để xs, nhưng đi qua ((2 3 4)) trong khi tôi bước qua nó trong trình gỡ lỗi. Vì vậy, tôi đã cố gắng

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

tư duy này: "ha, tôi muốn xem bạn vượt qua cdr ở ngay bây giờ", nhưng tôi nhận được một lỗi: "Ứng dụng: cú pháp xấu (. Sử dụng trái phép` ') tại: (cộng * (+ xh). t) "

Điều gì đang xảy ra?

(Tôi có thể nhận được một phiên bản bổ sung cho công việc, hoặc bằng cách

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

Hoặc thậm chí

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

vậy, việc bổ sung không phải là vấn đề, làm thế nào chấm mọi thứ làm việc được.)

Answer 1

Phiên bản cuối cùng của bạn là cách chính xác để chuyển danh sách các số làm đầu vào cho plus - bạn phải sử dụng apply để làm điều này. (Vâng, hoặc là, hoặc tránh toàn bộ điều như bạn đã làm với foldl.) Sử dụng một dấu chấm trong ứng dụng không làm những gì bạn nghĩ rằng nó nên - nó làm cho chương trình đọc khác nhau.