我如何懒惰地评估读行来收集输入？

Question

(以下是一项家庭作业，但我正在用一种新的语言进行尝试。)

在一个简短的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

相反，程序在没有提示的情况下无限地开始和挂起。我试图通过将for表达式包装在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))))

Answer 1

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

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

另一个问题是，读行返回字符串，并将它们用作数字。你得先转化他们。

在clojure中，"for“不是for-循环，而是一种列表理解。

Answer 2

print不会刷新输出，因此您不会立即看到提示。使用println或显式调用flush，如下所示：

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