[comp.lang.perl] &unsort

alanm@cognos.UUCP (Alan Myrvold) (02/02/91)

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