36 lines
568 B
Text
36 lines
568 B
Text
' version 14-08-2017
|
|
' compile with: fbc -s console
|
|
|
|
#Define n 2200
|
|
|
|
Dim As UInteger s = 3, s1, s2, x, x2, y
|
|
ReDim As Ubyte l(n), l_add(n * n * 2)
|
|
|
|
For x = 1 To n
|
|
x2 = x * x
|
|
For y = x To n
|
|
l_add(x2 + y * y) = 1
|
|
Next
|
|
Next
|
|
|
|
For x = 1 To n
|
|
s1 = s
|
|
s += 2
|
|
s2 = s
|
|
For y = x +1 To n
|
|
If l_add(s1) = 1 Then l(y) = 1
|
|
s1 += s2
|
|
s2 += 2
|
|
Next
|
|
Next
|
|
|
|
For x = 1 To n
|
|
If l(x) = 0 Then Print Str(x); " ";
|
|
Next
|
|
Print
|
|
|
|
' empty keyboard buffer
|
|
While InKey <> "" : Wend
|
|
Print : Print "hit any key to end program"
|
|
Sleep
|
|
End
|