Rosetta Code

Find words which contains more than 3 e vowels: Difference between revisions

Page Discussion

Find words which contains more than 3 e vowels (view source)

Revision as of 07:08, 9 February 2021

47 bytes removed ,  3 years ago
m
→‎{{header|REXX}}: changed some comments.
(strengthened testing for requirements.)
m (→‎{{header|REXX}}: changed some comments.)
Line 25:
say copies('─', 30) # "words in the dictionary file: " iFID
finds= 0 /*count of the "eeee" words found. */
vowels= 'aeiou'; /*obtain the list of all the other vowels. */
upper vowels /*uppercase all the other vowels. */
vowels= space( translate( vowels, , chrU), 0) /*elide the one vowel we're particular vowel. looking for*/
 
do j=1 for #; $= @.j /*process all the words that were found*/
upper $ /*uppercase it for caseless finds. */
if posverify(chrUvowels, $, 'M')==>0 then iterate /*AtDoes leastit 1contain vowelother foundvowels? No, thenSkip skipit*/
if verifycountstr(vowelschrU, $, 'M')>0 < many then iterate /*Does it have enough of 'e's? " "*/
iffinds= countstr(chrU,finds $)+ <1 many then iterate /*Have enough vowels? " " /*bump count of only "e" vowels found. */
finds= finds + 1 /*bump the count of "ABC" words found. */
say right(left(@.j, 30), 40) /*indent original word for readability.*/
end /*j*/
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/307722"