「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))