Question

我是Lisp的新手，我正在尝试编写一个程序，只是要求用户输入3个数字然后对它们求和并打印输出。

我已经读到你可以使用以下功能：

(defvar a)

(setq a (read))

要在Lisp中设置变量，但是当我尝试使用LispWorks编译代码时，我收到以下错误：

End of file while reading stream #<Concatenated Stream, Streams = ()>

我觉得这应该相对简单，不知道我哪里出错了。

Answer 1

我没有使用过LispWorks，所以这只是猜测。

当编译器遍历你的代码时它会到达行(setq a (read))，它会尝试读取输入，但是在编译时没有输入流，因此你会收到错误。

写一个函数：

(defvar a)

(defun my-function ()
  (setq a (read))

它应该有用。

Answer 2

这应该在你的Lisp中正确评估：

(defun read-3-numbers-&-format-sum ()
  (flet ((prompt (string)
           (format t "~&~a: " string)
           (finish-output)
           (read nil 'eof nil)))
    (let ((x (prompt "first number"))
          (y (prompt "second number"))
          (z (prompt "third number")))
      (format t "~&the sum of ~a, ~a, & ~a is:~%~%~a~%"
              x y z (+ x y z)))))

只需评估上述函数定义，然后运行表单：

(read-3-numbers-&-format-sum)

在LispWorks口译员处。

如何在Lisp中读取用户输入

2 个答案: