Deceptive numbers: Difference between revisions

Content added Content deleted
Line 78: Line 78:
Main
Main
i = 49, c=0
i = 49, c=0
Iterator ( ++i, #(c <> 50), \
Iterator ( ++i, #(c <> 10), \
Print only if ( Is deceptive 'i', Set 'i,"\n"'; ++c ) )
Print only if ( Is deceptive 'i', Set 'i,"\n"'; ++c ) )
End
End
Line 94: Line 94:
exit:
exit:
Return
Return

module pow(b, e, m)
module pow(b, e, m)
Loop for (p = 1, e, e >>= 1)
Loop for (p = 1, e, e >>= 1)
Line 114: Line 115:
3367
3367
4141
4141
4187
5461
6533
6541
6601
7471
7777
8149
8401
8911
10001
11111
12403
13981
14701
14911
15211
15841
19201
21931
22321
24013
24661
27613
29341
34133
34441
35113
38503
41041
45527
46657
48433
50851
50881
52633
54913
57181
63139
63973
</pre>
</pre>