From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: If not Ada, what else...
Date: Sun, 23 Aug 2015 10:18:29 -0700
Organization: Also freenews.netfront.net; news.tornevall.net;
 news.eternal-september.org
Message-ID: <mrcv5t$11s$1@dont-email.me>
References: <iomd56$c1s$1@dont-email.me> <d17drnF4b0qU1@mid.individual.net>
 <lymvypjqdq.fsf@pushface.org>
 <8076cbd0-2655-4c98-b70e-cb5f0c32e4ba@googlegroups.com>
 <e8521a43-2bbf-4970-a17b-b585d021f235@googlegroups.com>
 <mp6d4a$22n$1@loke.gir.dk>
 <5e6cb30b-5f8c-4fed-969e-3941315ecba0@googlegroups.com>
 <87si87nf8k.fsf@jester.gateway.sonic.net>
 <alpine.DEB.2.20.1507291906150.9222@debian>
 <87bneuony6.fsf@jester.gateway.sonic.net> <mr8anv$2gp$1@z-news.wcss.wroc.pl>
 <87pp2gqa2g.fsf@nightsong.com> <mrcs6p$7t5$1@z-news.wcss.wroc.pl>
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1252
Content-Transfer-Encoding: 7bit
Injection-Date: Sun, 23 Aug 2015 17:16:47 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="ee44d3db9c41f5ad88d7e8e8f0268f05";
	logging-data="1084"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/pfEa7Nu41Nufqpx6dHi+dKYPZ6526VBg="
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101
 Thunderbird/38.1.0
In-Reply-To: <mrcs6p$7t5$1@z-news.wcss.wroc.pl>
Cancel-Lock: sha1:BrqyZmzZgjUEGxBYEz/1n3WkouE=
Xref: news.eternal-september.org comp.lang.ada:27583
Date: 2015-08-23T10:18:29-07:00
List-Id: <comp.lang.ada>

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.

>     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 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;

-- 
Jeff Carter
"I blow my nose on you."
Monty Python & the Holy Grail
03