in reply to Compare two signed integers without using comparision operator in perl

print $a.(qw(< == >))[1+eval{($a-$b)/abs($a-$b)}].$b,$/;

[download]
                - tye
  • Comment on Re: Compare two signed integers without using comparision operator in perl (no sign()?)
  • Download Code

In Section Seekers of Perl Wisdom