13 lines
294 B
Text
13 lines
294 B
Text
LET bs = 10
|
|
LET c1 = 0
|
|
LET c2 = 0
|
|
FOR k = 1 TO (bs^2)-1
|
|
LET c1 = c1 + 1
|
|
IF REMAINDER(k,(bs-1)) = REMAINDER((k*k),(bs-1)) THEN
|
|
LET c2 = c2 + 1
|
|
PRINT k;
|
|
END IF
|
|
NEXT k
|
|
PRINT
|
|
PRINT USING "Trying ## numbers instead of ### numbers saves ##.##%": c2, c1, 100-(100*c2/c1)
|
|
END
|