aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

56
Task/Word-wheel/Ada/word-wheel.ada
View file

@ -1,56 +0,0 @@
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_IO; use Ada.Text_IO;
with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO;
procedure Wordwheel is
Compulsory_Ix : constant Positive := 5;
Min_Length : constant Positive := 3;
function Char_Posn (Str : Unbounded_String; C : Character) return Natural is
begin
for Ix in 1 .. Length (Str) loop
if Element (Str, Ix) = C then
return Ix;
end if;
end loop;
return 0;
end Char_Posn;
procedure Search (Dict_Filename : String; Wheel : String) is
Dict_File : File_Type;
Allowed : constant String := To_Lower (Wheel);
Required_Char : constant String (1 .. 1) := "" & Allowed (Compulsory_Ix);
Available, Dict_Word : Unbounded_String;
Dict_Word_Len : Positive;
Matched : Boolean;
Posn : Natural;
begin
Open (File => Dict_File, Mode => In_File, Name => Dict_Filename);
while not End_Of_File (Dict_File) loop
Dict_Word := Get_Line (Dict_File);
Dict_Word_Len := Length (Dict_Word);
if Dict_Word_Len >= Min_Length and then
Dict_Word_Len <= Wheel'Length and then
Ada.Strings.Unbounded.Count (Dict_Word, Required_Char) > 0
then
Available := To_Unbounded_String (Allowed);
Matched := True;
for i in 1 .. Dict_Word_Len loop
Posn := Char_Posn (Available, Element (Dict_Word, i));
if Posn > 0 then
Delete (Source => Available, From => Posn, Through => Posn);
else
Matched := False;
exit;
end if;
end loop;
if Matched then
Put_Line (Dict_Word);
end if;
end if;
end loop;
Close (Dict_File);
end Search;
begin
Search ("unixdict.txt", "ndeokgelw");
end Wordwheel;