Question

我不认为关键压力？下面的功能正如我所期望的那样工作。首先，这是输入数据。

cmp-val派生的数据： [“2”“000-00-0000”“TOAST”“FRENCH”“”“M”“Aug-99”“”“”所有护理计划“”医疗“] 缺少密钥的数据（ssn）。 [“000-00-0000”“TOAST”“FRENCH”“RE-PART B - INSURED”]

问题是，如果我输入其中一个输入的000-00-0000，我应该看到那个联合到一个日志向量。我没有，而且我没有看到它打印出if-not empty？。

(defn is-a-in-b
    "This is a helper function that takes a value, a column index, and a 
     returned clojure-csv row (vector), and checks to see if that value
     is present. Returns value or nil if not present."

    [cmp-val col-idx csv-row]

    (let [csv-row-val (nth csv-row col-idx nil)]
        (if (= cmp-val csv-row-val)
            cmp-val
            nil)))

(defn key-pres?
    "Accepts a value, like an index, and output from clojure-csv, and looks
     to see if the value is in the sequence at the index. Given clojure-csv
     returns a vector of vectors, will loop around until and if the value
     is found."

    [cmp-val cmp-idx csv-data]

    (let [ret-rc 
        (for [csv-row csv-data
                :let [rc (is-a-in-b cmp-val cmp-idx csv-row)]
                :when (true? (is-a-in-b cmp-val cmp-idx csv-row))]
            rc)]
        (vec ret-rc)))

(defn test-key-inclusion
    "Accepts csv-data file and an index, a second csv-data param and an index,
     and searches the second csv-data instances' rows (at index) to see if
     the first file's data is located in the second csv-data instance."

    [csv-data1 pkey-idx1 csv-data2 pkey-idx2]

    (reduce
        (fn [out-log csv-row1]
            (let [cmp-val (nth csv-row1 pkey-idx1 nil)]
                (doseq [csv-row2 csv-data2]
                  (let [temp-rc (key-pres? cmp-val pkey-idx2 csv-row2)]
                      (if-not (empty? temp-rc) 
                          (println cmp-val, " ", (nth csv-row2 pkey-idx2 nil), " ", temp-rc))
                      (if (nil? temp-rc)
                        (conj out-log cmp-val))))))
         []
         csv-data1))

我希望函数做的是遍历clojure-csv（向量向量）返回的数据。如果可以在csv-row的cmp-idx位置找到cmp-val，我会喜欢的分配给rc，循环终止。

如何修复for循环，如果没有，我可以用什么循环机制来实现呢？

谢谢。

Answer 1

您不需要true?，它专门检查布尔值true;
不要重复调用is-a-in-b;
使用a-in-b?作为fn名称会更加惯用（并且可读）;
我建议简化代码，你真的不需要let。

代码：

(vec (for [csv-row csv-data
           :let [rc (a-in-b? cmp-val cmp-idx csv-row)]
           :when rc)]
        rc))

但是，这只是对代码风格的一些一般性评论......你在这里实现的只是一个简单的filter：

(vec (filter #(a-in-b? cmp-val cmp-idx %) csv-data))

此外，这不仅会返回第一个匹配项，还会返回所有匹配项。如果我正确地读了你的问题，你只需要找到第一场比赛？然后使用some：

(some #(a-in-b? cmp-val cmp-idx %) csv-data)

<强>更新

重读你的问题我觉得你认为for是一个循环结构。它不是 - 它是一个列表理解，产生一个懒惰的seq。要编写一个控制何时进行迭代的循环，必须使用loop-recur。但是在Clojure中，除了性能之外，你几乎不需要编写自己的循环。在所有其他情况下，您可以从clojure.core组成高阶函数。

循环，如果结果发现然后退出

1 个答案: