Re: Finding the max()/min()

[monoxide]

A bit longer (just a little bit) but here goes. I realise that it can probably be shortened, but in the interests of brevity and my sanity here is the longer version.

max(3,4);

sub max {
($x,$y)=@_;@xd=split//,$x;
if(length($x) != length($y))
{
 return $x if(length($x)>length($y));
 return $y if(length($y)>length($x));
}
@yd=split//,$y;
for($i;$i<length($x);$i++)
{
 if (ord($xd[$i])!= ord($yd[$i]))
 {
  return $y if( ord($y)>ord($x) );
  return $y if(ord ($y) >ord($x ));
 }
}
}

# *** UNTESTED *** 
# It could be used to compare binary values, 
# but i suppose that is outside the scope of 
# this post.