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替换dorun。前者期望seq作为它的第一个或第二个参数并强制它。

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

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

P.S。在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)
    )))

我如何懒惰地评估读取线以收集输入？

2 个答案: