管道测试/从Gambit Scheme Interpreter到文件的痕迹

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)

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