Perl to the max

No Comments

This is why Perl rocks: sub max{(sort{$b<=>$a}@_)[0];}

Comments are closed for this post