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>