1

我正在尝试实现程序中的一项功能。我在 func3 中有 list=[abc] 作为参数。我想测试这些项目的相等性。如果它们不相等，我将使用 func2 的另一个列表返回再次调用它。这是我需要做的。我希望 Conj 执行此操作 [list list1 list2 list3] 直到 func3 具有相等的项目。在我的函数中，当条件为假时，我希望 conj 将一个空向量 r[] 合并到其他列表。我现在得到的只是条件为真时的最终列表返回。假设条件必须为假（项目不相等）才能为真。有人可以帮我在错误的情况下使用 conj。谢谢。

   ;input [1 2 3]
   ;output [[1 2 3][1 3 4] [3 4 5] ]// numbers for demo only
   (defn func3 [list]
       (loop [v (vec list) r []]
        (if(= (v 0) (v 1) (v 2))        
            (conj r v)
            (let[result (func2 v)]
            ;i want to merge result to r until the condition is true
            (conj r result)
            (func3 result)))))
4

2 回答 2

2

我知道您有一个包含三个元素的列表作为初始输入，想要比较它们是否相等。如果它们匹配，您希望将列表附加到稍后返回的累加器 - 如果它们不匹配，您希望使用惯用调用的函数转换列表func2并再次尝试该过程。

编辑：既然你已经评论了你的函数应该如何工作，这里有一个实现：

(defn func3
  "Determines whether items in coll are equal. If not, transforms coll with func2 and
   repeats the test until a coll with equal elements could be found. 

   Returns a vector of all tried versions."
  [coll]
  (loop [acc []
         coll coll]
    (if (apply = coll)
      (conj acc coll)
      (recur (conj acc coll)
             (func2 coll)))))

这是一个惰性实现：

 (defn func3
   [coll]
   (-> (->> coll
            (iterate func2)
            (split-with (partial apply =)))
       (as-> [dropped [r]]
             (concat dropped [r])))
于 2013-11-06T01:25:45.863 回答
2

Conj 永远不会改变它的输入，它会根据输入创建一个新的输出。在第二种情况下，你没有对 conj 的输出做任何事情，所以它的结果永远不会被使用。

 (defn func3 [list]
       (loop [[v & vs] (vec list) r []]
        (if (= (v 0) (v 1) (v 2))        
            (conj r v)
            (let [result (func2 v)
                  r (conj r result)]
              (recur vs r)))))
于 2013-11-06T01:26:30.447 回答