Anonymous user
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 07:08, 9 February 2021
, 3 years ago→{{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'
upper vowels /*uppercase all the other vowels. */
vowels= space( translate( vowels, , chrU), 0) /*elide the
do j=1 for #; $= @.j /*process all the words that were found*/
upper $ /*uppercase it for caseless finds. */
if
if
say right(left(@.j, 30), 40) /*indent original word for readability.*/
end /*j*/
|