Я не уверен, что этот код пытается сделать

Question

(define changeit (lambda (x) (* x x))) (define changeall (lambda (x) (if (null? x) '() (cons (changeit (car x)) (changeall (cdr x)))))) (changeit 8) (changeit 9) (changeall '(2 14 10 8))

Я не совсем уверен, что changeall делает, может кто-нибудь объяснить это?

EDIT: Вот остальная часть кода

Answer 1

Хотя комментарий Оскар Лопес подытоживает, что происходит, этот ответ немного подробнее. changeit - это просто функция x^2. changeall - функция одного аргумента. Если этот аргумент является пустым списком ((null? x)), функция возвращает пустой список. В противном случае changeall вычисляет квадрат первого элемента его списка аргументов ((car x)) и добавляет его к результату вызова changeall с остальной частью его списка начальных аргументов ((cdr x)). Это вызов рекурсивной функции. В какой-то момент список аргументов будет исчерпан, т. Е. Аргумент будет пустым списком, а changeall вернет пустой список (первый случай, который мы рассмотрели). На этом этапе рекурсия остановится.