Eban numbers: Difference between revisions
Content deleted Content added
Line 126:
count = 7999
</pre>
=={{header|J}}==
<lang J>
divrem =: <.@:%~ , |
Filter =: (#~`)(`:6)
itemAmend =: (29&< *. <&67)`(,:10&|)}
iseban =: [: , (monad define&>)
'b r' =: (10^9x) divrem y
'm r' =: (10^6x) divrem r
't r' =: (10^3x) divrem r
m =: itemAmend ,m
t =: itemAmend ,t
r =: itemAmend ,r
, *./ +./ 0 2 4 6 =/ b , m , t ,: r
)
(;~ #) iseban Filter >: i. 1000
┌──┬─────────────────────────────────────────────────────┐
│19│2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66│
└──┴─────────────────────────────────────────────────────┘
NB. INPUT are the correct integers, head and tail shown
({. , {:) INPUT =: 1000 + i. 3001
1000 4000
(;~ #) iseban Filter INPUT
┌──┬────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│21│2000 2002 2004 2006 2030 2032 2034 2036 2040 2042 2044 2046 2050 2052 2054 2056 2060 2062 2064 2066 4000│
└──┴────────────────────────────────────────────────────────────────────────────────────────────────────────┘
</lang>
=={{header|Julia}}==
| |||