Clojure: max of list

Question

Try to write Clojure program: Define the function maxim to find the largest element in the list

(def boxes [33 11 44 22 66 55])

(println "List of box volumes:" boxes)

(defn top-one [[big1 :as acc] x]
  (cond
    (> x big1) [x big1]
    :else acc))

(defn top-one-list [boxes]
  (reduce top-one [0] boxes))

(println "Biggest volume from boxes:" top-one-list)
    (println "Biggest volume from boxes:" top-one-list)

But the output result is:66 44, it print two numbers,who could help me

Answer 1

This line:

(> x big1) [x big1]

Returns two elements. You only want one.

It should be:

(> x big1) [x]

A cleaner way to write it would be not to use a list, but only a number as the state of the reduction process:

(defn top-one [big1 x]
  (if (> x big1)
    x
    big1))

(defn top-one-list [boxes]
  (reduce top-one 0 boxes))