Eban numbers: Difference between revisions
Content added Content deleted
(Added Easylang) |
(added RPL) |
||
Line 2,706: | Line 2,706: | ||
1599 eban numbers found for: 1 -10000000 |
1599 eban numbers found for: 1 -10000000 |
||
═════════════════════════════════════════════════════════════════════════════════════════════════════════ |
═════════════════════════════════════════════════════════════════════════════════════════════════════════ |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{trans|Julia}} |
|||
{{works with|HP|49}} |
|||
« → n |
|||
« '''IF''' n '''THEN''' |
|||
n 1000000000 IDIV2 |
|||
1000000 IDIV2 |
|||
1000 IDIV2 |
|||
3 →LIST |
|||
« → x « 30 x ≤ x 66 ≤ AND x 10 MOD x IFTE » » MAP |
|||
+ |
|||
« { 0 2 4 6 } SWAP POS » MAP ΠLIST |
|||
'''ELSE''' 0 '''END''' |
|||
» » '<span style="color:blue">EBAN?</span>' STO |
|||
« { } |
|||
UNROT '''FOR''' j |
|||
'''IF''' j <span style="color:blue">EBAN?</span> '''THEN''' j + '''END''' |
|||
'''NEXT''' |
|||
» » '<span style="color:blue">TASK1</span>' STO |
|||
« 0 |
|||
1 ROT '''FOR''' j |
|||
'''IF''' j <span style="color:blue">EBAN?</span> '''THEN''' 1 + '''END''' |
|||
'''NEXT''' |
|||
» » '<span style="color:blue">TASK2</span>' STO |
|||
1 1000 <span style="color:blue">TASK1</span> |
|||
1000 4000 <span style="color:blue">TASK1</span> |
|||
10000 <span style="color:blue">TASK2</span> |
|||
{{out}} |
|||
<pre> |
|||
3: { 2 4 6 30 32 34 36 40 42 44 46 50 52 54 56 60 62 64 66 } |
|||
2: { 2000 2002 2004 2006 2030 2032 2034 2036 2040 2042 2044 2046 2050 2052 2054 2056 2060 2062 2064 2066 4000 } |
|||
1: 79 |
|||
</pre> |
</pre> |
||