Remove vowels from a string: Difference between revisions

=={{header|RPL}}==

≪ "AEIOUaeiou" → string vowels

≪ "" 1 string SIZE '''FOR''' j

string j DUP SUB

'''IF''' vowels OVER POS '''THEN''' DROP '''ELSE''' + '''END'''

'''NEXT'''

≫ ≫ ''''NOVWL'''' STO

{{in}}

<pre>

"This is a difficult sentence to pronounce" NOVWL

</pre>

{{out}}

<pre>

1: "Ths s a dffclt sntnc t prnnc"

</pre>