管道测试/跟踪从 Gambit 方案解释器到文件

Question

如果我过程，例如：

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

例如，我使用（方块 5）对其进行测试，如何将此结果从 Gambit 方案解释器传送到文本文件？

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 中的>将输出定向到特定文件。