clojure - 使用可变参数定义我自己的 max 函数

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 ) )