Тесты / трассировки трубопровода от интерпретатора схемы Gambit к файлу

Question

Если я процедуру, пример:

(define square
  (lambda (n)
    (* n n)))

и я проверяю это, используя (квадрат 5), например, как мне передать этот результат от интерпретатора Gambit Scheme в текстовый файл?

Answer 1

Одно из решений:

(define square
  (lambda (n)
     (* n n)))

(call-with-output-file "a-file.txt"
  (lambda ()
     (display (square 5))
     (newline)))

Другой способ заключается в печати непосредственно на стандартный вывод:

(define square
  (lambda (n)
     (* n n)))

(display (square 5))
(newline)

А потом использовать > в оболочке, чтобы направить вывод в конкретный файл.