a
(gcd b (rem a b))))
-(defn average [a b]
- (/ (+ a b) 2.0))
+(defn average [ & coll]
+ (/ (reduce + coll)
+ (float (count coll))))
+
+(defn approx-equal [x y]
+ (< (abs (- x y)) 0.00001))
+
+(defn error [^String string]
+ (throw (Exception. string)))
(defmacro microbench
" Evaluates the expression n number of times, returning the average