----- Original Message -----
From: "Chris Ball" <[EMAIL PROTECTED]>
> On Mon, 2001-12-17 at 15:46, Jeff 'japhy' Pinyan wrote:
> > It certainly puts my C-like code to shame. It's very nice.
>
> And even more so to my code. Very well written, Bob.
I'm very impressed at all the solutions and the speed of the response.
When I first saw that question being posted, I thought a custom sort could
do the work and so I, (yours humble beginner) decided to try. The
undermentioned was an abandoned unsuccessful work of mine.
@array = qw( 9 11 12 13 14 23 25 26 27 50);
@transformed = sort {
print "\$a = $a and \$b = $b \n"; #just to see whats going on.
if (($a + 1) == $b) {
$a = "$a-";
#$b=~s/$b//;
$a<=>$b;
}
}@array;
print "@transformed\n";
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
