14 lines
335 B
Plaintext
14 lines
335 B
Plaintext
10 LET Base=10
|
|
20 LET N=2
|
|
30 LET c1=0
|
|
40 LET c2=0
|
|
50 LET k=1
|
|
60 IF k>=(Base^N)-1 THEN GO TO 150
|
|
70 LET c1=c1+1
|
|
80 IF FN m(k,Base-1)=FN m(k*k,Base-1) THEN LET c2=c2+1: PRINT k;" ";
|
|
90 LET k=k+1
|
|
100 GO TO 60
|
|
150 PRINT '"Trying ";c2;" numbers instead of ";c1;" numbers saves ";100-(c2/c1)*100;"%"
|
|
160 STOP
|
|
170 DEF FN m(a,b)=a-INT (a/b)*b
|