“For”失败，但“循环”工作

Question

我想使用SQLKorma执行一些SQL语句。起初，我写了下面的代码：

(let [sqls (-> (slurp "resources/database.sql") 
       (str/split #";") 
       butlast)] 
    (for [sql sqls] 
     (k/exec-raw sql))) 

但原因不明，这是行不通的。 for循环完全跳过。然而这工作：

(let [sqls (-> (slurp "resources/database.sql") 
       (str/split #";") 
       butlast)] 
    (loop [sqls sqls] 
    (if (not (empty? sqls)) 
     (do 
     (k/exec-raw (first sqls)) 
     (recur (rest sqls)))))) 

为什么会发生这种情况？为什么for循环失败？

Answer 1

for创建一个惰性序列。只有当你实际使用它时，Clojure才会执行懒惰序列的每个元素。如果您只需要副作用，您应该强制执行延迟序列dorun。

在你的情况我建议你使用map

(->> (str/split (slurp "resources/database.sql") 
       #";") 
    butlast 
    (map k/exec-raw) 
    dorun) 

或doseq（see mtyaka's answer），而不是for环

(doseq [sql (-> (slurp "resources/database.sql") 
       (str/split #";") 
       butlast)] 
    (k/exec-raw sql)) 

我喜欢map版本的更多，但是doseq工作的点点更快。

Answer 2

for是懒惰的。改为使用doseq：

(doseq [sql sqls] 
    (k/exec-raw sql))