37 lines
883 B
Text
37 lines
883 B
Text
fastfunc x n .
|
|
if n = 0 or n = 2 or n = 4 or n = 6 : return 1
|
|
return 0
|
|
.
|
|
global n[] count .
|
|
fastproc gof start stop printable .
|
|
count = 0
|
|
if printable = 1 : len n[] 0
|
|
for i = start step 2 to stop
|
|
b = i div 1000000000
|
|
r = i mod 1000000000
|
|
m = r div 1000000
|
|
r = i mod 1000000
|
|
t = r div 1000
|
|
r = r mod 1000
|
|
if m >= 30 and m <= 66 : m = m mod 10
|
|
if t >= 30 and t <= 66 : t = t mod 10
|
|
if r >= 30 and r <= 66 : r = r mod 10
|
|
if x b = 1 and x m = 1 and x t = 1 and x r = 1
|
|
count += 1
|
|
if printable = 1 : n[] &= i
|
|
.
|
|
.
|
|
.
|
|
proc go start stop printable .
|
|
write start & " - " & stop & ":"
|
|
gof start stop printable
|
|
if printable = 1 : write " " & n[]
|
|
print " (count=" & count & ")"
|
|
.
|
|
go 2 1000 1
|
|
go 1000 4000 1
|
|
go 2 10000 0
|
|
go 2 100000 0
|
|
go 2 1000000 0
|
|
go 2 10000000 0
|
|
go 2 100000000 0
|