Eban numbers: Difference between revisions
m
→{{header|RPL}}: tweaked code
(added RPL) |
m (→{{header|RPL}}: tweaked code) |
||
Line 2,711:
{{trans|Julia}}
{{works with|HP|49}}
1000000000 IDIV2
▲ « '''IF''' n '''THEN'''
3
▲ « → 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
|