Find words which contains more than 3 e vowels: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add PL/I) |
|||
Line 855: | Line 855: | ||
16 words: belvedere dereference elsewhere ... seventeenth telemeter tennessee |
16 words: belvedere dereference elsewhere ... seventeenth telemeter tennessee |
||
</pre> |
</pre> |
||
=={{header|PL/I}}== |
|||
<lang pli>moreThanThreeEs: procedure options(main); |
|||
declare dict file; |
|||
open file(dict) title('unixdict.txt'); |
|||
on endfile(dict) stop; |
|||
declare word char(32) varying; |
|||
do while('1'b); |
|||
next: get file(dict) list(word); |
|||
declare (e, i) fixed, ch char; |
|||
e = 0; |
|||
do i=1 to length(word); |
|||
ch = substr(word, i, 1); |
|||
if verify(ch, 'aiou') = 0 then go to next; |
|||
if ch = 'e' then e = e + 1; |
|||
end; |
|||
if e > 3 then put skip list(word); |
|||
end; |
|||
close file(dict); |
|||
end moreThanThreeEs;</lang> |
|||
{{out}} |
|||
<pre>belvedere |
|||
dereference |
|||
elsewhere |
|||
erlenmeyer |
|||
evergreen |
|||
everywhere |
|||
exegete |
|||
freewheel |
|||
nevertheless |
|||
persevere |
|||
preference |
|||
referee |
|||
seventeen |
|||
seventeenth |
|||
telemeter |
|||
tennessee</pre> |
|||
=={{header|Python}}== |
=={{header|Python}}== |