Data Update

Task/Pythagorean-quadruples/FutureBasic/pythagorean-quadruples.basic

@@ -0,0 +1,38 @@
+_limit = 2200
+
+long x, x2, y, s = 3, s1, s2, counter
+long l( _limit )
+long ladd( _limit  * _limit * 2 )
+
+for x = 1 to _limit
+  x2 = x * x
+  for y = x to _limit
+    ladd( x2 + y * y ) = 1
+  next
+next
+
+for x = 1 to _limit
+  s1 = s
+  s = s + 2
+  s2 = s
+  for y = x + 1 to _limit
+    if ladd(s1) == 1 then l(y) = 1
+    s1 = s1 + s2
+    s2 = s2 +  2
+  next
+next
+
+counter = 1
+for x = 1 to _limit
+  if ( l(x) == 0 )
+    if ( counter mod 7 == 0 )
+      printf @"%6ld", x : counter == 1 : continue
+    else
+      printf @"%6ld\b", x
+      counter++
+    end if
+  end if
+next
+print
+
+HandleEvents