Re: Spellcheck.adb

["Matthew Heaney" <mheaney@on2.com>]

albert.bachmann@gmx.de wrote:
>
>
> First I post the C++ solution since it is much shorter and easy to
> understand:

The Ada solution based on the Ada 2005 standard container library isn't
much different from your C++ example:


with Hashed_Word_Sets;  use Hashed_Word_Sets;
with Ada.Text_IO;  use Ada.Text_IO;

procedure Spellcheck is

   Words : Set;

   Line : String (1 .. 132);
   Last : Natural;

   File : File_Type;

begin

   Open (File, In_File, "spellcheck-dict.txt");

   while not End_Of_File (File) loop
      Get_Line (File, Line, Last);
      Insert (Words, New_Item => Line (Line'First .. Last));
   end loop;

   while not End_Of_File loop
      Get_Line (Line, Last);

      if not Contains (Words, Item => Line (Line'First .. Last)) then
         Put_Line (Line (Line'First .. Last));
      end if;
   end loop;

end Spellcheck;


<http://charles.tigris.org/source/browse/charles/src/ai302/examples/spellcheck/>

We did determine that the hash function doesn't perform well for small
strings, but I haven't fixed it yet.  If you're desperate I can fix it
tonight.

-Matt