16 lines
272 B
Text
16 lines
272 B
Text
Define doors(fast) = Func
|
|
Local doors,i,j
|
|
seq(false,x,1,100) ? doors
|
|
If fast Then
|
|
For i,1,10,1
|
|
true ? doors[i^2]
|
|
EndFor
|
|
Else
|
|
For i,1,100,1
|
|
For j,i,100,i
|
|
not doors[j] ? doors[j]
|
|
EndFor
|
|
EndFor
|
|
EndIf
|
|
Return doors
|
|
EndFunc
|