Eban numbers: Difference between revisions

m
(→‎{{header|zkl}}: added code)
m (→‎{{header|zkl}}: reformat)
Line 986:
<lang zkl>rgs:=T( T(2, 1_000, True), // (start,end,print)
T(1_000, 4_000, True),
T(2, 1e4, False), T(2, 1e5, False), T(2, 1e6, False), T(2, 1e7, False),
T(2, 1e51e8, False), T(2, 1e9, False), // slow and very slow
T(2, 1e6, False),;
T(2, 1e7, False),
T(2, 1e8, False), // slow
T(2, 1e9, False), ); // very slow
 
foreach start,end,pr in (rgs){
Line 999 ⟶ 996:
count:=0;
foreach i in ([start..end,2]){
b,r := i/100_0000_000, i%1_000_000_000;
m,r := r/1_000_000, i%1_000_000_0001_000_000;
mt,r := r/1_000_0001_000, r%1_000;
r:=i%1_000_000;
t:=r/1_000;
r=r%1_000;
if(30<=m<=66) m=m%10;
if(30<=t<=66) t=t%10;
Anonymous user