Clojure Web Crawler 中的奇怪输出

Question

我有以下问题。我正在为学校作业做 WebCrawler，我正在 Clojure 中做。这是代码。

(defn crawl [url current-depth max-depth]
(def hrefs (get-links url))
(if (< current-depth max-depth)
    (map crawl hrefs (iterate eval (inc current-depth)) (iterate eval max-depth))
    hrefs))

(defn get-links [page] 
($ (get! page) td "a[href]" (attr "abs:href")))

get! 和 $ 函数不是我写的，我是从这里拿的：https://github.com/mfornos/clojure-soup/blob/master/src/jsoup/soup.clj

我的问题是，当我从 repl 调用 (crawl "http://bard.bg" 0 0) 时，我得到以下输出：

("http://www.bard.bg/genres/?id=1" "http://www.bard.bg/genres/?id=2" "http://www.bard.bg/genres/?id=4" "http://www.bard.bg/genres/?id=5" "http:/
("http://www.bard.bg/genres/?id=1" "http://www.bard.bg/genres/?id=2" "http://www.bard.bg/genres/?id=4" "http://www.bard.bg/genres/?id=5" "http:/
("http://www.bard.bg/genres/?id=1" "http://www.bard.bg/genres/?id=2" "http://www.bard.bg/genres/?id=4" "http://www.bard.bg/genres/?id=5" "http://www.bard.bg/genres/?id=6" "http://www.bard.bg/genres/?id=10" "http://www.bard.bg/genres/?id=17" "http://www.bard.bg/genres/?id=24"
...

那么第一个2lazyseqs 是从哪里来的呢？为什么他们未完成？

似乎问题出在 Clojure-Soup 中，更具体地说是：

(defmacro $ [doc & forms]
   (let [exprs# (map #(if (string? %) `(select ~%)
                  (if (symbol? %) `(select ~(str %))
                     (if (keyword? %) `(select ~(str "#"(name %)))
                        %))) forms)]
 `(->> ~doc ~@exprs#)))`

Answer 1

我无法重现您描述的问题。在我的例子中，(crawl "http://bard.bg" 0 0) 返回一个包含 174 个字符串的列表。

但是，我想借此机会指出def 在crawl 函数中的错误用法。你应该使用let 而不是def。此外，不要使用(iterate eval ...)，而是使用repeat。

(defn crawl [url current-depth max-depth]
  (let [hrefs (get-links url)]
    (if (< current-depth max-depth)
      (map crawl hrefs (repeat (inc current-depth)) (repeat max-depth))
      hrefs)))

讨论见let vs def in clojure。