March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Modular-exponentiation/Clojure/modular-exponentiation.clj
+++ b/Task/Modular-exponentiation/Clojure/modular-exponentiation.clj
@ -0,0 +1,6 @@
+(defn powerMod "modular exponentiation" [b e m]
+  (defn m* [p q] (mod (* p q) m))
+  (loop [b b, e e, x 1]
+    (if (zero? e) x
+      (if (even? e) (recur (m* b b) (/ e 2) x)
+        (recur (m* b b) (quot e 2) (m* b x))))))