Clojure语言九:for循环

宏for可以支持循环

下面继续前面的xml的例子，演示如何用for遍历xml-seq返回的sequence.

user=> (for [x r] (println "^" x))(^ {:tag :service, :attrs nil, :content [{:tag :mongodb, :attrs nil, :content [{:tag :uri, :attrs nil, :content [localhost]}]} {:tag :socket, :attrs nil, :content [{:tag :port_number, :attrs nil, :content [7777]} {:tag :login_timeout, :attrs nil, :content [200]} {:tag :check_timeout, :attrs nil, :content [200]}]}]}^ {:tag :mongodb, :attrs nil, :content [{:tag :uri, :attrs nil, :content [localhost]}]}nil ^ {:tag :uri, :attrs nil, :content [localhost]}nil ^ localhostnil ^ {:tag :socket, :attrs nil, :content [{:tag :port_number, :attrs nil, :content [7777]} {:tag :login_timeout, :attrs nil, :content [200]} {:tag :check_timeout, :attrs nil, :content [200]}]}nil ^ {:tag :port_number, :attrs nil, :content [7777]}nil ^ 7777nil ^ {:tag :login_timeout, :attrs nil, :content [200]}nil ^ 200nil ^ {:tag :check_timeout, :attrs nil, :content [200]}nil ^ 200nil nil)

每个sequence元素前打印一个^符号便于分辨。

加上条件过滤，比如只取:tag 为:mongodb的

user=> (for [x r :when (= :mongodb (:tag x))] x)({:tag :mongodb, :attrs nil, :content [{:tag :uri, :attrs nil, :content ["localhost"]}]})user=> 

for 后面的方括号是一个vector，r是xml-seq返回的sequence，x是sequence中的元素，每次循环都自动获取下一个元素，:when(...)是条件判断语句。当when(...)返回true的时候就执行vector后面的表达式，因为这里仅仅是x,所以将这个符号条件的元素作为for的返回值。

:when 不会阻止循环提前结束，但是:while就不同了。

如果:while(...) 计算出结果为false，则循环立刻退出。

所以下面返回空list

user=> (for [x r :while (= :mongodb (:tag x))] x)()

因为第一个元素的:tag值是:service，不等于:mongodb，因此循环停止。