困惑于；让我们；在Clojure_Clojure_Eval_Let

困惑于；让我们；在Clojure

clojure

困惑于；让我们；在Clojure,clojure,eval,let,Clojure,Eval,Let,我刚开始玩Clojure，我写了一个小脚本来帮助我理解一些函数。它是这样开始的： (def *exprs-to-test* [ "(filter #(< % 3) '(1 2 3 4 3 2 1))" "(remove #(< % 3) '(1 2 3 4 3 2 1))" "(distinct '(1 2 3 4 3 2 1))" ]) (doseq [exstr *exprs-to-test*] (do (println "

我刚开始玩Clojure，我写了一个小脚本来帮助我理解一些函数。它是这样开始的：

(def *exprs-to-test* [  
    "(filter #(< % 3) '(1 2 3 4 3 2 1))"
    "(remove #(< % 3) '(1 2 3 4 3 2 1))"
    "(distinct '(1 2 3 4 3 2 1))"
])

(doseq [exstr *exprs-to-test*]
    (do 
        (println "===" (first (read-string exstr)) "=========================")
        (println "Code: " exstr)
        (println "Eval: " (eval (read-string exstr)))
    )
)

以上代码都可以正常工作。但是，

（read string exstr）

是重复的，因此我尝试使用

let

消除重复，如下所示：

(doseq [exstr *exprs-to-test*]
    (let [ex (read-string exstr)] (
        (do 
            (println "===" (first ex) "=========================")
            (println "Code: " exstr)
            (println "Eval: " (eval ex))
        )
    ))
)

但是对于要测试的

*exprs*

中的第一个项目，这只工作一次，然后由于

NullPointerException

而崩溃。为什么添加的

let

会导致崩溃？

在

do

表单周围有一组额外的括号。您的代码正在执行以下操作：

((do ...))

它试图执行（作为函数调用）整个

do

表单的值，但是

do

nil

，因为

do

表单中最后一个

println

nil

注意，缩进样式是非标准的。你不应该把最后一方放在他们自己的台词上。而且

let

有一个隐式的

do

，所以你不需要它。试试这个：

user> (doseq [exstr *exprs-to-test*]
        (let [ex (read-string exstr)] 
          (println "===" (first ex) "=========================")
          (println "Code: " exstr)
          (println "Eval: " (eval ex))))
=== filter =========================
Code:  (filter #(< % 3) '(1 2 3 4 3 2 1))
Eval:  (1 2 2 1)
=== remove =========================
Code:  (remove #(< % 3) '(1 2 3 4 3 2 1))
Eval:  (3 4 3)
=== distinct =========================
Code:  (distinct '(1 2 3 4 3 2 1))
Eval:  (1 2 3 4)

user>（doseq[exstr*exprs to test*]
（let[ex（读取字符串exstr）]
（println“===”（第一次执行）”===============================================================================================================================================================================”）
（println“代码：”exstr）
（println“Eval:（Eval ex）））
==滤波器=========================
代码：（过滤器#（<%3）’（1234321））
评估：（1 2 1）
==删除=========================
代码：（删除#（<%3）“（1234321））
评估：（3 4 3）
==不同的=========================
代码：（不同的“（1234321））
评估：（1234）

Brian已经回答了你的问题，所以我只想给你一些关于let表单的一般提示：

（见“出租”一节）

使用全局绑定（要测试的EXPR）
使用doseq/println按顺序尝试代码
使用eval