18 lines
370 B
Plaintext
18 lines
370 B
Plaintext
PROGRAM "Casting out nines"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
bs = 10
|
|
c1 = 0
|
|
c2 = 0
|
|
FOR k = 1 TO (bs ** 2) - 1
|
|
INC c1
|
|
IF k MOD (bs - 1) = (k * k) MOD (bs - 1) THEN INC c2: PRINT k;
|
|
NEXT k
|
|
PRINT
|
|
PRINT "Trying "; c2; " numbers instead of "; c1; " numbers saves "; 100 - (100 * c2 / c1); "%"
|
|
END FUNCTION
|
|
END PROGRAM
|