从Gambit Scheme解释器到文件的管道测试/跟踪

Question

If I程序，例如：

(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)

然后在shell中使用>将输出定向到特定的文件。