Re: help with string splitting

[Georg Bauhaus <bauhaus@futureapps.de>]

isaac2004 wrote:

> an example is this
> Mother would be Mtoehr encrypted

How about a little rearrangement and some functional
decomposition (if you can afford to be a little wasteful
in the first draft):

procedure encrypt (s: Message) is

   type Confusion is array(Positive range s'Range) of Positive;

   function permute(s: Message) return Confusion;


   new_idx: constant Confusion := permute(s);

begin
   for k in s'Range loop
     <copy characters to their new positions via `new_idx`>
   end loop;
end encrypt;