2

方案实现:tinyscheme

这是我的尝试:

(with-output-to-file "biophilia.c"
  (lambda (output-port)
    (write "Hello" output-port)))

Ceates biophilia.c 具有以下内容:

错误:(:26)没有足够的参数

我在这里做错了什么?如何修复它?

(define (with-output-to-file s p)
     (let ((outport (open-output-file s)))
          (if (eq? outport #f)
               #f
               (let ((prev-outport (current-output-port)))
                    (set-output-port outport)
                    (let ((res (p)))
                         (close-output-port outport)
                         (set-output-port prev-outport)
                         res)))))
4

1 回答 1

4

你打错电话with-output-to-file了。

第二个参数是一个 thunk,而不是一个需要端口参数的过程。

所以这样称呼它:

(with-output-to-file "biophilia.c"
  (lambda ()
    (write "Hello")))

with-output-to-file已经为您重新绑定了当前端口(正如您在重建中尝试的那样)。

请在此处查看 Racket 文档。

于 2012-06-06T05:59:27.377 回答