Lychrel numbers: Difference between revisions
m
→{{header|RPL}}: imrpoved comment
(added RPL) |
m (→{{header|RPL}}: imrpoved comment) |
||
Line 3,599:
« { } DUP DUP2 500 0 → seeds related current palych stop counts
« 1 10000 '''FOR''' n
1 CF { } 'current' STO <span style="color:grey"> @ flag 1 set =
n DUP <span style="color:blue">IREVERSE</span>
'''IF''' DUP2 == '''THEN''' 2 SF '''ELSE''' 2 CF '''END''' <span style="color:grey">@ flag 2 set = n is palindromic</span>
| |||