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.2 required=5.0 tests=BAYES_00,FROM_WORDY,
	INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,fd3a5ba6349a6060
X-Google-Attributes: gid103376,public
From: "Nick Roberts" <Nick.Roberts@dial.pipex.com>
Subject: Re: should I be interested in ada?
Date: 1999/02/25
Message-ID: <7b2j32$drp$2@plug.news.pipex.net>#1/1
X-Deja-AN: 448175706
References: <7a72e6$g55$1@probity.mcc.ac.uk> <36C93BB4.1429@ecs.soton.ac.uk>
 <7afc1o$3mi$2@plug.news.pipex.net> <7afttr$7v3$1@nnrp1.dejanews.com>
 <7aganu$qsc$1@plug.news.pipex.net> <36CC3AEA.59E2@lanl.gov>
 <7ai502$6an$1@nnrp1.dejanews.com> <36CD8DBA.237C@lanl.gov>
 <36D43C64.15FB@lanl.gov>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Organization: UUNET WorldCom server (post doesn't reflect views of UUNET
 WorldCom)
Newsgroups: comp.lang.ada
Date: 1999-02-25T00:00:00+00:00
List-Id: <comp.lang.ada>

William Clodius wrote in message <36D43C64.15FB@lanl.gov>...
[...]

| X(J) = X


I'd say this shows the high-level power of Fortran 90 at its best.  I mean,
this is neat!  This is almost APL (and I mean that as a compliment - APL can
be a really, really neat language).

| FORALL (I=1:N, J=1:M) A(I,J) = I + J


The Ada equivalent would be:

   for i in 1..N loop
      for j in 1..M loop
         A(i,j) := i+j;
      end loop;
   end loop;

You might say "that's five times bigger!"  But I would strongly contend that
it would be highly naive to think that because one piece of code is five
lines and another is one line, it must therefore be five times more complex
(in terms of diffculty to read, difficulty to debug, etc.).

| WHERE(A(1:N) == 0.) A(1:N) = B(1:N)

The Ada would be:

   for i in 1..N loop
      if A(i) = 0.0 then A(i) := B(i); end if;
   end loop;

Less neat, certainly. But I think similar comments apply as to the previous
example.

|William B. Clodius Phone: (505)-665-9370
|Los Alamos Nat. Lab., NIS-2     FAX: (505)-667-3815
|PO Box 1663, MS-C323    Group office: (505)-667-5776
|Los Alamos, NM 87545            Email: wclodius@lanl.gov

-------------------------------------
Nick Roberts
-------------------------------------