Select Code to Download

sub andNeg {
  return (($_[0]^$_[1]) < 0);
}

print "<table border>\n<tr><td>", join("</td><td>", "x", "y", "andNeg(
+)", "spaceship()", "mult()", "anchor()"), "</td></tr>\n";
for (0..3) {
...
  print "<tr><td>", join("</td><td>", $x, $y, andNeg($x, $y), spaceshi
+p($x, $y), mult($x, $y), anchor($x, $y)), "</td></tr>\n";
}
print "</table>\n";

sub spaceship {
  (0 <=> $_[0]) == (0<=> $_[1]);
...
  }
  return 0;
}

#!perl -w
#
...
  }
  return @retval;
}