Re: Need Help On Ada95 Problem

[Simon Wright <simon@pushface.org>]

Shark8 <onewingedshark@gmail.com> writes:

>> Complete the function Encrypt(PIN) that takes a 4-digit PIN (as a
>> string) and returns the corresponding 4-letter code (also as a
>> string).
>>
>> Note: It would be possible to convert digits to letters using a giant
>> IF statement, but don't do this. Instead, the letter wheel is given to
>> you as a string, so use each digit to read the appropriate letter from
>> the string.
>
> Alright this is actually a simple problem; there are several ways to
> go about this,
> but let's play to Ada's strengths and use types.
>
> So start by describing things in terms of types.
>
>       Type Cypher_Character is Private;
>       Type Pin_Character is Private;
>
>       Type Pin_String is Array(1..4) of Pin_Character;

Really, this is overkill.

> Reading the problem the note says:
> It would be possible to convert digits to letters using a giant
> IF statement, but don't do this. Instead, the letter wheel is given to
> you as a string, so use each digit to read the appropriate letter from
> the string.
>
> Meaning that they're hinting strongly that you use the CASE statement.

No, they want you to use the encoding as an array.

But I think it would be better to use a character mapping:

   The_Ring : constant Ada.Strings.Maps.Character_Mapping
     := Ada.Strings.Maps.To_Mapping ("0123456789", "UROVALTINE");

   function Encode (PIN : String) return String
   is
   begin
      return Ada.Strings.Fixed.Translate (PIN, The_Ring);
   end Encode;

OK, if you encode 9537s you get ELVIs ...

But we don't know what the professor feels about students who are too
clever for their own good and have clearly been reading ahead in the
textbook! (or asking for help on the net ...)