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/Constrained-random-points-on-a-circle/Phix/constrained-random-points-on-a-circle.phix
+++ b/Task/Constrained-random-points-on-a-circle/Phix/constrained-random-points-on-a-circle.phix
@ -0,0 +1,14 @@
+sequence screen = repeat(repeat(' ',31),31)
+integer x, y, count = 0
+atom r
+while 1 do
+    x = rand(31)
+    y = rand(31)
+    r = sqrt(power(x-16,2)+power(y-16,2))
+    if r>=10 and r<=15 then
+        screen[x][y] = 'x'
+        count += 1
+        if count>=100 then exit end if
+    end if
+end while
+puts(1,join(screen,"\n"))