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 16:03, 28 December 2021
, 2 years agono edit summary
Not a robot (talk | contribs) (Add CLU) |
No edit summary |
||
Line 940:
nevertheless persevere preference referee seventeen seventeenth telemeter tennessee
</pre>
=={{header|Ksh}}==
<lang ksh>
#!/bin/ksh
# Find words which contains more than 3 e vowels and only e vowels
# # Variables:
#
badvowels='a|i|o|u'
typeset -si MINE=4
dictionary='../unixdict.txt'
# # Functions:
#
# # Function _countch(str, ch) return cpount of ch in str
#
function _countch {
typeset _str ; typeset -l _str="$1"
typeset _ch ; typeset -lL1 _ch="$2"
typeset _i _cnt ; typeset -si _i _cnt=0
for ((_i=0; _i<${#_str}; _i++)); do
[[ ${_str:_i:1} == ${_ch} ]] && (( _cnt++ ))
done
echo ${_cnt}
}
######
# main #
######
while read; do
[[ $REPLY == *+(${badvowels})* ]] && continue
(( $(_countch "$REPLY" "e") >= MINE )) && print $REPLY
done < ${dictionary}
</lang>
{{out}}<pre>
belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
|