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 22:07, 11 September 2021
, 2 years ago→{{header|Nim}}
Not a robot (talk | contribs) (Add PL/I) |
|||
Line 747:
nevertheless persevere preference referee seventeen seventeenth telemeter tennessee
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>vowels = Characters["euioa"];
dict = Once[Import["https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt"]];
dict //= StringSplit[#, "\n"] &;
dict = {#, Select[Characters[#], MemberQ[vowels, #] &]} & /@ dict;
dict //= Select[Last /* Count["e"] /* GreaterThan[3]];
dict //= Select[Last /* Apply[SameQ]];
dict[[All, 1]]</lang>
{{out}}
<pre>{belvedere, dereference, elsewhere, erlenmeyer, evergreen, everywhere, exegete, freewheel, nevertheless, persevere, preference, referee, seventeen, seventeenth, telemeter, tennessee}</pre>
=={{header|Nim}}==
| |||