Find words which contains more than 3 e vowels: Difference between revisions
Content added Content deleted
(Added Quackery.) |
(add sed) |
||
Line 1,626: | Line 1,626: | ||
tennessee |
tennessee |
||
</pre> |
</pre> |
||
=={{header|sed}}== |
|||
<syntaxhighlight lang="sed">#!/bin/sed -f |
|||
/^\([^aeiou]*e\)\{4\}[^aiou]*$/!d</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
belvedere |
|||
dereference |
|||
elsewhere |
|||
erlenmeyer |
|||
evergreen |
|||
everywhere |
|||
exegete |
|||
freewheel |
|||
nevertheless |
|||
persevere |
|||
preference |
|||
referee |
|||
seventeen |
|||
seventeenth |
|||
telemeter |
|||
tennessee |
|||
</pre> |
|||
=={{header|Snobol}}== |
=={{header|Snobol}}== |
||
<syntaxhighlight lang="snobol"> input(.words, 1,, 'unixdict.txt') :s(line) |
<syntaxhighlight lang="snobol"> input(.words, 1,, 'unixdict.txt') :s(line) |