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/Almost-prime/Ring/almost-prime.ring
+++ b/Task/Almost-prime/Ring/almost-prime.ring
@ -0,0 +1,33 @@
+for ap = 1 to 5
+    see "k = " + ap + ":"
+    aList = []
+    for n = 1 to 200
+        num = 0
+        for nr = 1 to n
+            if n%nr=0 and isPrime(nr)=1
+               num = num + 1
+               pr = nr
+               while true
+                     pr = pr * nr
+                     if n%pr = 0
+                        num = num + 1
+                     else exit ok
+               end ok
+        next
+        if (ap = 1 and isPrime(n) = 1) or (ap > 1 and num = ap)
+           add(aList, n)
+           if len(aList)=10 exit ok ok
+     next
+     for m = 1 to len(aList)
+           see " " + aList[m]
+     next
+     see nl
+next
+
+func isPrime num
+     if (num <= 1) return 0 ok
+     if (num % 2 = 0 and num != 2) return 0 ok
+     for i = 3 to floor(num / 2) -1 step 2
+         if (num % i = 0) return 0 ok
+     next
+     return 1