Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Modular-exponentiation/Oforth/modular-exponentiation.oforth
+++ b/Task/Modular-exponentiation/Oforth/modular-exponentiation.oforth
@ -0,0 +1,6 @@
+: powmod(base, exponent, modulus)
+   1 exponent dup ifZero: [ return ]
+    while ( dup 0 > ) [
+      dup isEven ifFalse: [ swap base * modulus mod swap ]
+      2 / base sq modulus mod ->base
+      ] drop ;