如何在Lisp中读取用户输入

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的正确评估：在您的LispWorks解释

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

：

(defun read-3-numbers-&-format-sum() 
    (flet ((prompt (string) 
      (format t "~&~a: " string) 
      (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))))) 

简单地评价以上函数的定义，然后运行形式。