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

Content added Content deleted
No edit summary
Line 6: Line 6:
{{Template:strings}}
{{Template:strings}}
<br><br>
<br><br>


=={{header|Ada}}==
This solution uses Ada 2012 aspect clauses to define discontinuous subtypes
<lang Ada>--
-- count vowels and consonants in a string
--
with Ada.Text_IO; use Ada.Text_IO;

procedure count_vowels_and_consonants is
subtype letter is Character with
Static_Predicate => letter in 'A' .. 'Z' | 'a' .. 'z';
subtype Vowel is Character with
Static_Predicate => Vowel in 'A' | 'E' | 'I' | 'O' | 'U' | 'a' | 'e' |
'i' | 'o' | 'u';
subtype consonant is Character with
Dynamic_Predicate => consonant in letter
and then consonant not in Vowel;

Input : String (1 .. 1_024);
length : Natural;
consonant_count : Natural := 0;
vowel_count : Natural := 0;
begin
Put ("Enter a string: ");
Get_Line (Item => Input, Last => length);
-- count consonants
for char of Input (1 .. length) loop
if char in consonant then
consonant_count := consonant_count + 1;
elsif char in Vowel then
vowel_count := vowel_count + 1;
end if;
end loop;
Put_Line ('"' & Input (1 .. length) & '"');
Put_Line
("contains" & vowel_count'Image & " vowels and" & consonant_count'Image &
" consonants.");
end count_vowels_and_consonants;</lang>
{{out}}
<pre>
Enter a string: If not now then when? If not us then who?
"If not now then when? If not us then who?"
contains 10 vowels and 20 consonants.
</pre>


=={{header|ALGOL 68}}==
=={{header|ALGOL 68}}==
Retrieved from "https://rosettacode.org/wiki/Count_how_many_vowels_and_consonants_occur_in_a_string"