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/Greatest-common-divisor/GFA-Basic/greatest-common-divisor.gfa
+++ b/Task/Greatest-common-divisor/GFA-Basic/greatest-common-divisor.gfa
@ -0,0 +1,20 @@
+'
+' Greatest Common Divisor
+'
+a%=24
+b%=112
+PRINT "GCD of ";a%;" and ";b%;" is ";@gcd(a%,b%)
+'
+' Function computes gcd
+'
+FUNCTION gcd(a%,b%)
+  LOCAL t%
+  '
+  WHILE b%<>0
+    t%=a%
+    a%=b%
+    b%=t% MOD b%
+  WEND
+  '
+  RETURN ABS(a%)
+ENDFUNC