为什么这个方案代码不能解析spoj的第一个？

Question

问题出在这里：http://www.spoj.com/problems/TEST/

而我的方案解决方案是：

(define (main) 
  (let ((line (read-line)))
    (if (or 
          (eof-object? line)
          (string=? line "42"))
        (void)
        (begin
          (display line)
          (newline)
          (main)))))

(main)

它报告

运行时错误（NZEC）

但我不知道为什么会出错。

Answer 1

您应该在提交之前安装 guile 并尝试您的代码。 Guile 默认没有read-line。您需要将此添加为第一行：

(use-modules (ice-9 rdelim))

所以发生的事情是 guile 发布了一个错误并将一个非零值返回给父进程，这反过来表明程序没有正常终止。然后 SPOJ 将报告为 NZEC。

诡计错误如下所示：

sylwester@sylhp ~> guile test.scm
ERROR: Unbound variable: read-line

每当您获得 NZEC 时，您都应该尝试在本地运行它以查找错误。