Clojure

1 files changed, 22 insertions, 0 deletions

diff --git a/gcd.clj b/gcd.clj
new file mode 100644
index 0000000..7cee3c3
--- /dev/null
+++ b/gcd.clj
@@ -0,0 +1,22 @@
+; SYNOPSIS:
+;
+; $ clojure gcd.clj 11 22 33 121
+; 11
+;
+; or:
+;
+; $ java -cp clojure-1.8.0.jar clojure.main gcd.clj 11 22 33 121
+; 11
+;
+
+(defn gcd2 [a b]
+  (if (zero? b)
+    a
+    (gcd2 b (mod a b))))
+
+(defn gcdn [aa] (reduce gcd2 aa))
+
+(println
+  (gcdn
+    (map #(Integer/parseInt %) *command-line-args*)))
+