title: Clojure: max of list
body: <p>Try to write Clojure program:
  Define the function maxim to find the largest element in the list</p>
  
  <pre><code>(def boxes [33 11 44 22 66 55])
  
  (println "List of box volumes:" boxes)
  
  (defn top-one [[big1 :as acc] x]
    (cond
      (&gt; 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)
  </code></pre>
  
  <p>But the output result is:66 44, it print two numbers,who could help me</p>