0

假设我用with-open 和 clojure.java.io/reader编写了一个函数来解析 txt 文件中的数据，然后我编写了另一个函数来多次调用 reader 函数以处理数据，例如

(defn grabDataFromFile [file patternString]   
     (let [data (atom [])]
        (with-open [rdr (clojure.java.io/reader file)] 
         (doseq [line (line-seq rdr)] 
           (if  (re-matches  (re-pattern  patternString) line) (swap! data conj line))))
        @data))


(defn myCalculation [file ]
  (let [data1 (grabDataFromFile file "pattern1")
        data2 (grabDataFromFile file "pattern2")
        data3 (grabDataFromFile file "pattern3")]
    ;calculations or processes of data1, data2, data3....))

我的问题是，在这个 myCalculation 函数中，底层代码是否足够聪明，可以用 clojure reader 只打开一次文件，并一次性获取所需的所有数据？还是它打开和关闭文件的次数与函数 grabDataFromFile 的调用次数一样多？（在这个例子中，3）

一个后续问题是，如果读者不够聪明，并且我必须故意将“解析器”代码与“处理”代码分开，我该怎么做才能加快速度？

4

1 回答 1

2

grabDataFromFile每次调用时都会打开和关闭阅读器（退出时）。底层代码不可能那么聪明，以至于一个函数可以在没有一些明确提供的信息的情况下检测其调用者的上下文。

接受另一个函数，grabDataFromFile它是您在每一行上运行的解析器逻辑（或者它可以是您想要在每一行上执行的任何函数）

(defn grabDataFromFile [file patternString process-fn]   
  (with-open [rdr (clojure.java.io/reader file)] 
    (doseq [line (line-seq rdr)] 
      (process-fn line))))




(defn myCalculation [file]
  (let [patterns [["pattern1" (atom [])]
                  ["pattern2" (atom [])]
                  ["pattern3" (atom [])]]
        pattern-fns (map (fn [[p data]]
                           (fn [line]
                             (if  (re-matches (re-pattern  p) line)                              
                               (swap! data conj line)))) patterns)
        pattern-fn (apply juxt pattern-fns)]
    (grabDataFromFile file pattern-fn)
    ;perform calc on patterns atoms
    ))
于 2013-03-22T06:44:58.140 回答