Re: Implementing Memorize

[Marius Amado Alves <amado.alves@netcabo.pt>]

On Wed, 2003-10-22 at 10:32, Lutz Donnerhacke wrote:
> * christoph.grein@eurocopter.com wrote:
> >>    generic
> >>       with function Callback (n : Natural) return Natural;
> >>    function Action (n : Natural) return Natural;
> >>    
> >>    function Action (n : Natural) return Natural is
> >>    begin
> >>       case n is
> >>          when 0 | 1  => return 1;
> >>          when others => return Callback(n-1) + Callback(n-2);
> >>       end case;
> >>    end Action;
> >>    
> >>    function Fib_Direct is new Action (Fib_Direct); -- won't compile
> >               ~~~~~~~~~~
> > This hides the other homonyme from all visibility until the end of
> > the declaration.
> 
> What's the correct way to implement it?

Maybe with an access-to-subprogram type. What problem are your trying to
solve?