Select Code to Download

  DB<62> sub tst { print "$_: ", ($_ <=> $l) + ($_ <=> $r), "\n" }

...
4: 1
5: 2
6: 2

  DB<79> sub leg { print "$_: ", -($_ < $l) || ($_ > $r) || 0, "\n" }

...
4: 0
5: 1
6: 1