Find words which contains more than 3 e vowels: Difference between revisions
Find words which contains more than 3 e vowels (view source)
Revision as of 11:09, 10 September 2021
, 2 years agoAdd PL/I
Not a robot (talk | contribs) (Add PL/I) |
|||
Line 855:
16 words: belvedere dereference elsewhere ... seventeenth telemeter tennessee
</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}}==
| |||