(defn my-min [& args]
  (reduce #(if (< % %2) % %2) args)

(defn my-min-long [& args]
  (reduce (fn [x y]
            (if (< x y)
              x
              y))
          args))