Path: utzoo!utgpu!cunews!cognos!alanm
From: alanm@cognos.UUCP (Alan Myrvold)
Newsgroups: comp.lang.perl
Subject: Re: &unsort (was: Now *that's* a .sig!)
Message-ID: <9282@cognos.UUCP>
Date: 1 Feb 91 20:09:34 GMT
References: <1991Jan8.073648.7186@uvaarpa.Virginia.EDU> <11216@jpl-devvax.JPL.NASA.GOV> <120572@uunet.UU.NET> <1991Jan30.152924.4373@iwarp.intel.com>
Reply-To: alanm@cognos.UUCP (Alan Myrvold)
Organization: Cognos Inc., Ottawa, Canada
Lines: 16

Gee, I would hope you use Perl to write your unsort routines :

$a = "Just another Perl hacker,";
grep(push(@b,$_ . (0+$c++)),split(//,$a));
grep((@d = split(//,$_,2)) && push(@e,$d[0]) && ($f[$d[1]] = 0+$g++),sort @b);
print 'print &unsort(split(//,"',join('',@e),'")),"\n"; sub unsort {',"\n";
print '@_[',join(',',@f),']; };',"\n";


                                          - Alan

---
Alan Myrvold          3755 Riverside Dr.     uunet!mitel!cunews!cognos!alanm
Cognos Incorporated   P.O. Box 9707          alanm%cognos.uucp@ccs.carleton.ca
(613) 738-1440 x5530  Ottawa, Ontario       
                      CANADA  K1G 3Z4