Question

我正在学习Clojure解决4clojure中列出的问题。其中一个练习是使用可变参数创建自己的max函数。

我正在尝试使用REPL来解决这个简单的问题，我得到了这个解决方案：

(defn my-max 
    [first & more] (calc-max first more))

(defn calc-max 
    [m x] 
        (cond (empty? x) m
            (> (first x) m) (calc-max (first x) (rest x))
            :else calc-max m (rest x)))

哪个工作正常，但练习不允许使用def，因此我必须将两个功能合并为一个。当我用其代码替换calc-max引用时，结果为：

(defn my-max 
    [first & more] 
    ((fn calc-max 
        [m x] 
            (cond (empty? x) m
                (> (first x) m) (calc-max (first x) (rest x))
                :else calc-max m (rest x)))
                    first more))

但是这段代码不起作用并返回下一个错误：

user=> (my-max 12 3 4 5 612 3)
java.lang.ClassCastException: java.lang.Integer cannot be cast to clojure.lang.IFn (NO_SOURCE_FILE:0)

我想这个错误来自于尝试评估calc-max函数的结果，我想这是我的语法错误，但我无法弄清楚如何解决它。

Answer 1

这是我用来解决它的功能。关键是不要使用max。

(fn [& args] (reduce (fn [x y] (if (> x y) x y) ) args ) )

Answer 2

真正的错误是您调用了参数first - 它将真正的first函数重新绑定为数字！只需将名称更改为其他内容，您的变体即可运行。例如，虽然可能更明确地命名函数，而不是调用匿名函数，但您可以使用calc-max将letfn声明为本地函数。因此，您的my-max将如下所示：

(defn my-max [ff & more]
  (letfn [(calc-max [m x] 
            (cond (empty? x) m
                  (> (first x) m) (calc-max (first x) 
                                            (rest x))
                  :else (calc-max m (rest x))))]
    (calc-max ff more)))

虽然，我认为，您可以编写更简单的代码：

(defn my-max [& more] (reduce max more))

Answer 3

您的功能不起作用，因为first中的fn被视为功能而不是输入值。所以当你写

user=> (my-max 12 3 4 5 612 3)

这是不能投12才能发挥作用。简单来说，它可以重写为

(defn my-max1 [fst & more]
  ((fn calc-max [m x]
     (cond (empty? x) m
           (> (first x) m) (calc-max (first x) (rest x))
           :else (calc-max m (rest x))))
    fst more))

甚至没有fn

(defn my-max [x & xs]
  (cond (empty? xs) x
        (> (first xs) x) (recur (first xs) (rest xs))
        :else (recur x (rest xs))))

Answer 4

详细说明您所看到的异常：每当Clojure抛出类似

的内容时

java.lang.Integer cannot be cast to clojure.lang.IFn

对你来说这意味着它试图调用一个函数，但它试图调用的东西不是函数而是其他东西。当你有这样的代码

时，通常会发生这种情况

(smbl 1 2 3)

如果smbl引用一个函数，clojure将使用参数1 2和3执行它。但如果smbl没有引用函数，那么您将看到类似上面的错误。这是我查看代码时的指针，正如4e6所指出的那样，(first x)是罪魁祸首，因为你将函数参数命名为first。

Answer 5

不如reduce好，但是好吧：

（fn [＆args] （循环[l参数，maxno（第一个参数）] （如果（空？l）马克斯诺（如果（> maxno（first l））（重复（剩余l）maxno）（重复（休息l）（前l）））））））

我可以使用cond

用变量参数定义我自己的max函数

5 个答案: