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=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,243dc2fb696a49cd
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!border1.nntp.dca.giganews.com!nntp.giganews.com!peer01.cox.net!cox.net!newsfeeds.sol.net!newspump.sol.net!upp1.onvoy!onvoy.com!news7.onvoy.net.POSTED!not-for-mail
Message-ID: <4150DFF5.3010502@y.com>
From: Pylinius <p@y.com>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.8) Gecko/20020204
X-Accept-Language: en-us
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Ada Popularity: Comparison of Ada/Charles with C++ STL (and Perl)
References: <e749549b.0409211621.6f3d3723@posting.google.com>
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Date: Wed, 22 Sep 2004 02:16:59 GMT
NNTP-Posting-Host: 137.192.59.183
X-Complaints-To: abuse@onvoy.com
X-Trace: news7.onvoy.net 1095819419 137.192.59.183 (Tue,
 21 Sep 2004 21:16:59 CDT)
NNTP-Posting-Date: Tue, 21 Sep 2004 21:16:59 CDT
Organization: Onvoy
Xref: g2news1.google.com comp.lang.ada:3914
Date: 2004-09-22T02:16:59+00:00
List-Id: <comp.lang.ada>

Kevin Cline wrote:
> As promised in the Ada popularity thread, I have taken one of the
> Charles examples and reimplemented it in C++.  I used only the
> standard C++ language and libraries.  The Ada/CHARLES main program
> body is 118 (non-blank) lines of code, plus an additional 40 lines of
> instantiations in eight other specification files, for a total of 158
> lines and 9 files.  The C++ implementation is 76 (non-blank) lines of
> code in a single file.  For grins, I also wrote the program in Perl. 
> That took 14 lines.
> 
> Summary:
> 
> Ada/Charles 158 lines, 9 files
> C++         76 lines
> Perl        14 lines
> 
> You can compare the implementations at
> http://www.geocities.com/kc0a/wordcount.html
> 


-- 11 lines + 1 comment line, which is the one you are reading, duh
with Gnat.Problems_For_High_Schoolers;
with Text_IO; use Text_IO;
procedure Main is
begin
   loop
     Put_Line(Gnat.Problems_For_High_Schoolers.Word_Count_Concordance);
   end loop;
exception
   when Gnat.Problems_For_High_Schoolers.End_Error =>
     null;
end;