> my @sorted = map { $_->[0] }
^^^^^^^^^^^^^^^^^^^
delete this... might help
> sort { $a->[0] <=> $b->[0] # Sort by element 0
> ||
> $b->[1] <=> $b->[1] # then by element 1
> }
> @encoded;
> ===================================================
>
> There is a bug someplace that prevents it printing
> the correct value - knowledgable people are welcome
> to find it... I've no more time available just now.
Well... not much time anyway!
> I think this might be the fastest solution thus far.
Jonathan Paton
=====
$_=q|.,&@$$. ,.@$&@$. .&$$@. ,,$ ....!$_=$p.'&$@.',y'&$@' .,';for(/\S+/g){
!|.q| .$ .,@, ,$, .,.. @, ,$ ,,@ .,,.!++$.<22?${'y'.$_}=chr$.+64:[$$=${'y'
!|.q| ,@$@&.,. $$$&, ..@&&$,,, $., ..!.$_},$y.=($.=~/22\|26\|3(3\|7)/x?' '
!|.q|. @ ., ,.&,,, , .$..&. .,$ .,,!.$$:"\l$$")]};$y=~/ (.*)/;warn"$1\n"
!|.q|. $ .,. .,$$&&$...&., @.,.&@$@ .|,map{-$|--?$r:$p.=$_}split'!';eval$r
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
