Find words with alternating vowels and consonants: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added/changed comments, changed whitespace.) |
(Ada version) |
||
Line 10: | Line 10: | ||
{{Template:Strings}} |
{{Template:Strings}} |
||
<br><br> |
<br><br> |
||
=={{header|Ada}}== |
|||
<lang Ada>with Ada.Text_Io; |
|||
with Ada.Strings.Fixed; |
|||
procedure Find_Alternating is |
|||
use Ada.Text_Io; |
|||
function Is_Vowel (Letter : Character) return Boolean |
|||
is (Ada.Strings.Fixed.Index ("aeiou", "" & Letter) /= 0); |
|||
Filename : constant String := "unixdict.txt"; |
|||
File : File_Type; |
|||
begin |
|||
Open (File, In_File, Filename); |
|||
while not End_Of_File (File) loop |
|||
declare |
|||
Word : constant String := Get_Line (File); |
|||
First : Boolean := True; |
|||
Failed : Boolean := False; |
|||
Vowel : Boolean; |
|||
begin |
|||
for Letter of Word loop |
|||
if First then |
|||
Vowel := Is_Vowel (Letter); |
|||
First := False; |
|||
else |
|||
if Vowel = Is_Vowel (letter) then |
|||
Failed := True; |
|||
exit; |
|||
end if; |
|||
Vowel := not Vowel; |
|||
end if; |
|||
end loop; |
|||
if not Failed and Word'Length > 9 then |
|||
Put_Line (Word); |
|||
end if; |
|||
end; |
|||
end loop; |
|||
Close (File); |
|||
end Find_Alternating;</lang> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |