May 22, 2012 00:15
diff --git a/jbochi-4clojure-solution100.clj b/jbochi-4clojure-solution100.clj
 ;; jbochi's solution to Least Common Multiple
 ;; https://4clojure.com/problem/100

 (fn [& s]
 (reduce
  (fn lcm [a b] (/
    (* a b)
    ((fn gcd [a b]
      (if (= b 0)
        a
        (gcd b (mod a b)))) a b)))
  s))
	;; jbochi's solution to Least Common Multiple
	;; https://4clojure.com/problem/100

	(fn [& s]
	(reduce
	(fn lcm [a b] (/
	(* a b)
	((fn gcd [a b]
	(if (= b 0)
	a
	(gcd b (mod a b)))) a b)))
	s))