Anonymous user
Count how many vowels and consonants occur in a string: Difference between revisions
Count how many vowels and consonants occur in a string (view source)
Revision as of 19:14, 28 July 2021
, 2 years ago→{{header|Phix}}
Line 188:
5 vowels and 13 consonants (distinct)
22 vowels and 31 consonants (total)</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Count_how_many_vowels_and_consonants_occur_in_a_string
use warnings;
while( <DATA> )
{
print "@{[ $- = tr/aeiouAEIOU// ]} vowels @{[ tr/a-zA-Z// - $-
]} consonants in: $_\n"
}
__DATA__
test one
TEST ONE
Now is the time for all good men to come to the aid of their country.
Forever Perl Programming Language</lang>
{{out}}
<pre>
3 vowels 4 consonants in: test one
3 vowels 4 consonants in: TEST ONE
22 vowels 31 consonants in: Now is the time for all good men to come to the aid of their country.
11 vowels 19 consonants in: Forever Perl Programming Language
</pre>
=={{header|Phix}}==
| |||