in reply to for vs. reverse

OK, its a little sick and twisted, but it *is* one statement and it doesn't have a for or while loop: 
@_ = sort { 
        print "Why do we have to hide from the police, daddy ?
Because they use $a and we use $b, son.\n" if $a ne $b;
} ( 'emacs', 'vi', 'emacs' );

[download]

Replies are listed 'Best First'.
Re: Re: for vs. reverse
by MeowChow (Vicar) on Mar 27, 2001 at 01:26 UTC
    Hah! That's g-r-r-r-r-r-reat!

    A few touch-ups: 

    () = sort { 
  print "Why do we have to hide from the police, daddy ?\nBecause they
+ use $a and we use $b, son.\n"
} qw(emacs vi emacs);

    [download]
       MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]
[d/l]

In Section Seekers of Perl Wisdom