Eban numbers: Difference between revisions
Content added Content deleted
(→{{header|AppleScript}}: Rewritten to generate the numbers itself instead of just testing those thrown at it.) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
| Line 163: | Line 163: | ||
16 between 66,066,066,020 and 1,000,000,000,000: |
16 between 66,066,066,020 and 1,000,000,000,000: |
||
6.606606603E+10, 6.6066066032E+10, 6.6066066034E+10, 6.6066066036E+10, 6.606606604E+10, 6.6066066042E+10, 6.6066066044E+10, 6.6066066046E+10, 6.606606605E+10, 6.6066066052E+10, 6.6066066054E+10, 6.6066066056E+10, 6.606606606E+10, 6.6066066062E+10, 6.6066066064E+10, 6.6066066066E+10"</lang> |
6.606606603E+10, 6.6066066032E+10, 6.6066066034E+10, 6.6066066036E+10, 6.606606604E+10, 6.6066066042E+10, 6.6066066044E+10, 6.6066066046E+10, 6.606606605E+10, 6.6066066052E+10, 6.6066066054E+10, 6.6066066056E+10, 6.606606606E+10, 6.6066066062E+10, 6.6066066064E+10, 6.6066066066E+10"</lang> |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey>eban_numbers(min, max, show:=0){ |
|||
counter := 0, output := "" |
|||
i := min |
|||
while ((i+=2) <= max) |
|||
{ |
|||
b := floor(i / 1000000000) |
|||
r := Mod(i, 1000000000) |
|||
m := floor(r / 1000000) |
|||
r := Mod(i, 1000000) |
|||
t := floor(r / 1000) |
|||
r := Mod(r, 1000) |
|||
if (m >= 30 && m <= 66) |
|||
m := Mod(m, 10) |
|||
if (t >= 30 && t <= 66) |
|||
t := Mod(t, 10) |
|||
if (r >= 30 && r <= 66) |
|||
r := Mod(r, 10) |
|||
if (b = 0 || b = 2 || b = 4 || b = 6) |
|||
&& (m = 0 || m = 2 || m = 4 || m = 6) |
|||
&& (t = 0 || t = 2 || t = 4 || t = 6) |
|||
&& (r = 0 || r = 2 || r = 4 || r = 6) |
|||
counter++, (show ? output .= i " " : "") |
|||
} |
|||
return min "-" max " : " output " Count = " counter |
|||
}</lang> |
|||
Examples:<lang AutoHotkey>MsgBox, 262144, , % eban_numbers(0, 1000, 1) |
|||
MsgBox, 262144, , % eban_numbers(1000, 4000, 1) |
|||
MsgBox, 262144, , % eban_numbers(0, 10000) |
|||
MsgBox, 262144, , % eban_numbers(0, 100000) |
|||
MsgBox, 262144, , % eban_numbers(0, 1000000) |
|||
MsgBox, 262144, , % eban_numbers(0, 100000000)</lang> |
|||
{{out}} |
|||
<pre>2-1000 : 2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66 Count = 19 |
|||
1000-4000 : 2000 2002 2004 2006 2030 2032 2034 2036 2040 2042 2044 2046 2050 2052 2054 2056 2060 2062 2064 2066 4000 Count = 21 |
|||
2-10000 : Count = 79 |
|||
2-100000 : Count = 399 |
|||
2-1000000 : Count = 399 |
|||
2-10000000 : Count = 1599 |
|||
2-100000000 : Count = 7999</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |
||