Count how many vowels and consonants occur in a string: Difference between revisions

=={{header|Raku}}==

Note that the task '''does not''' ask for the '''total count''' of vowels and consonants, but for '''how many''' occur.

<lang perl6>my @vowels = <a e i o u>;

my @consonants = <b c d f g h j k l m n p q r s t v w x y z>;

sub letter-check ($string) {

my $letters = $string.lc.comb.Set;

"{sum $letters{@vowels}} vowels and {sum $letters{@consonants}} consonants occur in the string \"$string\"";

}

say letter-check "Forever Ring Programming Language";</lang>

{{out}}

<pre>5 vowels and 8 consonants occur in the string "Forever Ring Programming Language"</pre>

{{incorrect|Ring|[, ], \, _, and ` are not consonants}}