Re: If not Ada, what else...

[Waldek Hebisch <hebisch@math.uni.wroc.pl>]

Jeffrey R. Carter <spam.jrcarter.not@spam.not.acm.org> wrote:
> On 08/23/2015 09:26 AM, Waldek Hebisch wrote:
> > 
> > with Ada.Integer_Text_IO;    --  1  10.1.2, A.10 Context clause
> > procedure  hamming is
> > n0 : constant integer := 1_691;
> > buff : array(1..n0) of Integer;
> > procedure hamn(n : Integer) is
> 
> N is unreferenced.

Oops, my editor messed formatting.  Fixing formatting I lost
a line (of course now formatting needs to be fixed again...).
> >     cand : array(1..3) of Integer;
> >     ind : array(1..3) of Integer := (1, 1, 1);
> >     p : array(1..3) of Integer := (2, 3, 5);
> >     cmin : Integer;
> >     begin
> >         buff(1) := 1;
            for i in 2..n loop
> >         for j in 1..3 loop cand(j) := p(j)*buff(ind(j)); end loop;
> >         cmin := cand(1);
> >         for j in 2..3 loop
> >                 if cand(j) < cmin then cmin := cand(j); end if;
> >         end loop;
> >         buff(i) := cmin;
> 
> I is not defined.
> 
> >         for j in 1..3 loop
> >             if cand(j) = cmin then ind(j) := ind(j) + 1; end if;
> >         end loop;
> >     end loop;
> 
> No matching "loop" for this "end loop;"
> 
> > end hamn;
> > 
> > begin
> >    hamn(n0);
> >    for i in 1..10 loop
> >        Ada.Integer_Text_IO.put(buff(i));
> >    end loop;
> >    Ada.Integer_Text_IO.put(buff(n0));
> > end hamming;
> 

-- 
                              Waldek Hebisch
hebisch@math.uni.wroc.pl