Clojure 如何惰性地评估读取行以收集输入？

（以下内容原本是一项家庭作业，但我正在用一种新的语言进行尝试。）

在一个简短的Clojure程序中，我尝试生成一个惰性的输入序列（从命令行），并从中计算三个字符的值。我假设，可能取决于Clojure选择如何评估我的

let

绑定，这应该会产生如下提示系列：

$ clj lazy-prompts.clj
Enter value #1: 32
Enter value #3: 162
Enter value #2: 12
Enter value #4: 118
a A 5

相反，程序开始并无限挂起，没有提示。我试着用

dorun

将

表达式包装起来，急切地评估它的
，但这并没有改变结果

为什么以下程序不产生输入提示？

(use '[clojure.java.io :only (reader)])

(def of-input
    (for [value-number [1 2 3 4]]
        (dorun
            (print (str "Enter encrypted value #" value-number))
            (read-line)
        )))

(let [value-1 (nth of-input 1)
      value-2 (nth of-input 2)
      value-3 (nth of-input 3)
      value-4 (nth of-input 4)]

    (let [a (/ (+ value-1 value-3) 2)
          b (/ (+ value-2 value-4) 2)
          c (- value-4 b)]

        (println (char a) (char b) (char c))))

首先，你应该用do代替dorun。前者期望seq作为其第一个或第二个参数，并强制它

更改后，代码或多或少会正确运行。你观察到的“挂起”实际上是在等待你的输入。问题之一是，您还没有看到提示。它们实际上会显示，但只有在输入四个值后才会显示。你怎么解决这个问题？我不知道，我一直认为在懒散的序列中产生副作用是个坏主意，所以我从来没有这样做过

另一个问题是，read行返回字符串，而您将它们用作数字。你必须先转换它们

请注意，clojure中的“for”不是for循环，它是一个列表理解。
print
不会刷新输出，因此您不会立即看到提示。使用
println
或显式调用
flush
，如下所示：

(def of-input
(for [value-number [1 2 3 4]]
    (dorun
        (print (str "Enter encrypted value #" value-number))
        (flush)
        (read-line)
    )))