Odd words: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 1,407: | Line 1,407: | ||
13. supervene >> spree |
13. supervene >> spree |
||
14. terminable >> trial |
14. terminable >> trial |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|Halcyon Calc|4.2.7}} |
|||
≪ { } |
|||
1 UnixDict SIZE '''FOR''' w |
|||
‘UnixDict’ w GET |
|||
'''IF''' DUP SIZE 9 ≥ '''THEN''' |
|||
"" |
|||
1 OVER SIZE '''FOR''' k |
|||
OVER k DUP SUB + |
|||
2 '''STEP''' |
|||
SWAP DROP |
|||
'''IF''' UnixDict OVER POS '''THEN''' |
|||
'''IF''' DUP2 POS NOT '''THEN''' + '''ELSE''' DROP '''END''' |
|||
'''ELSE''' DROP '''END''' |
|||
'''ELSE''' DROP '''END''' |
|||
'''NEXT''' |
|||
≫ ‘<span style="color:blue">ODDW</span>’ STO |
|||
{{out}} |
|||
<pre> |
|||
1: { "brain" "cider" "cried" "grata" "hades" "plain" "point" "slain" "slain" "sight" "saute" "spree" "trial" } |
|||
</pre> |
</pre> |
||