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" Newsgroups: comp.lang.ada Subject: Re: Quick Sort in Rosetta Code Date: Tue, 9 Feb 2016 22:43:06 -0700 Organization: Also freenews.netfront.net; news.tornevall.net; news.eternal-september.org Message-ID: References: <2e3f8f3d-9247-4294-9ee7-961547674bc3@googlegroups.com> Mime-Version: 1.0 Content-Type: text/plain; charset=windows-1252 Content-Transfer-Encoding: 7bit Injection-Date: Wed, 10 Feb 2016 05:40:15 -0000 (UTC) Injection-Info: mx02.eternal-september.org; posting-host="caa759af2a9c666aec02942f6fe5abd6"; logging-data="20985"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1/tzlZsySkLKtubSYpFAIaYnLpJqayBCQE=" User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Thunderbird/38.5.1 In-Reply-To: <2e3f8f3d-9247-4294-9ee7-961547674bc3@googlegroups.com> X-Mozilla-News-Host: news://freenews.netfront.net Cancel-Lock: sha1:p4Oxgijk9dfdZKxAO4oVr/b34F0= Xref: news.eternal-september.org comp.lang.ada:29472 Date: 2016-02-09T22:43:06-07:00 List-Id: On 02/09/2016 10:27 PM, gautier_niouzes@hotmail.com wrote: > > Couldn't not find how to reach the author of the Rosetta Code Quick Sort code > http://rosettacode.org/wiki/Sorting_algorithms/Quicksort#Ada > ...but the code needs some improvement. > > If you put > Wed => 99.0, > in the demo instead of > Wed => 800.0, > you get > 99.00 100.00 300.00 200.00 500.00 700.00 900.00 Not quite right. There's an implementation of Quick Sort in the PragmARCs, but it would use insertion sort for something this short. -- Jeff Carter "I was in love with a beautiful blonde once, dear. She drove me to drink. That's the one thing I'm indebted to her for." Never Give a Sucker an Even Break 109