9 lines
303 B
Text
9 lines
303 B
Text
base = 10
|
|
c1 = 0
|
|
c2 = 0
|
|
for k = 1 to (base ^ 2) - 1
|
|
c1 = c1 + 1
|
|
if mod(k, (base - 1)) = mod((k * k), (base - 1)) then c2 = c2 + 1: print k, " "; : fi
|
|
next k
|
|
print "\nTrying ", c2 using("##"), " numbers instead of ", c1 using("###"), " numbers saves ", (100 - (100 * c2 / c1)) using("##.##"), "%"
|
|
end
|