Revision as of 01:58, 4 March 2019 (view source) rosettacode>Lambertdw (→‎{{header\|J}}) ← Older edit		Revision as of 03:58, 4 March 2019 (view source) rosettacode>Lambertdw (→‎{{header\|J}}) Newer edit →
Line 129: =={{header\|J}}== <lang J> ~~NB. iseban taken from Julia, excepting I'm not a Julia programmer.~~ ~~divrem =: <.@:%~ , \|~~ Filter =: (#~`)(`:6) ~~itemAmend =: (29&< . <&67)`(,:10&\|)}~~ ~~iseban~~itemAmend =: [:(29&< ,. <&67)`(~~monad~~,: ~~define~~10&>\|)} iseban =: [: ./ 0 2 4 6 e.~ [: itemAmend [: \|: (4#1000)&#: ~~'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 Line 163 ⟶ 153: 1e6 399 1e7 1599 </lang>

Eban numbers: Difference between revisions

Eban numbers (view source)