maxp · October 20, 2012 02:51
diff --git a/mymax.clj b/mymax.clj
 (defn
 ^{:doc "mymax [xs+] gets the maximum value in xs using > "
   :test (fn []
             (assert (= 42  (mymax 2 42 5 4))))
   :user/comment "this is the best fn ever!"}
  mymax
  ([x] x)
  ([x y] (if (> x y) x y))
  ([x y & more]
   (reduce mymax (mymax x y) more)))
	(defn
	^{:doc "mymax [xs+] gets the maximum value in xs using > "
	:test (fn []
	(assert (= 42 (mymax 2 42 5 4))))
	:user/comment "this is the best fn ever!"}
	mymax
	([x] x)
	([x y] (if (> x y) x y))
	([x y & more]
	(reduce mymax (mymax x y) more)))
No results found