summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcd.clj22
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*)))
+