Только начал со Схемы. У меня проблема с печатью на консоли. Простой пример печати списка:
(define factorial
(lambda (n)
(cond
((= 0 n) 1)
(#t (* n (factorial (- n 1)))))))
Я хочу печатать n каждый раз, когда вызывается функция. Я понял, что я не могу сделать это в той же функции? Нужно ли мне вызывать другую функцию, чтобы я мог печатать?
Печать в Scheme работает по вызову display (и, возможно, newline). Поскольку вы хотите вызывать его последовательно до/после чего-то еще (что в функциональном (или, в случае Scheme, функциональном) языке имеет смысл только для побочных эффектов вызываемых функций), вам обычно нужно использовать begin , который по очереди оценивает свои аргументы, а затем возвращает значение последнего подвыражения. Однако lambda неявно содержит такое begin-выражение.
Итак, в вашем случае это будет выглядеть так:
(lambda (n)
(display n) (newline)
(cond [...]))
Два замечания:
(define (factorial n) [...]) в качестве сокращения для (define factorial (lambda (n) [...])).factorial запрещает оптимизацию хвостового вызова, поэтому программа будет использовать немного места в стеке для больших значений n. Однако переписать его в оптимизируемую форму с помощью аккумулятора возможно.Если вы хотите напечатать n только один раз, когда пользователь вызывает функцию, вам действительно нужно написать обертку, например:
(define (factorial n)
(display n) (newline)
(inner-factorial n))
А затем переименуйте свою функцию в inner-factorial.
begin. Тело предложенияcondможет также содержать несколько выражений, так что вы можете просто вызвать тамdisplay. 11.02.2012factorialдля этого? Тогда это будет выглядеть так:(define factorial (lambda (n) (cond ((= 0 n) 1) (#t (let ((result (* n (factorial (- n 1))))) (display n) (newline) result)))))11.02.2012nтеперь печатается перед рекурсивным вызовом, вывод будет обратным. 11.02.2012(define factorial (n) ...)синтаксически неверно: должно быть(define (factorial n) ...). 11.02.2012