Help for this page

Select Code to Download

Select or download this

  DB<41> sub tst { ($_ > $r) - ($_ < $l) }

...
  DB<43> print tst(),"\t" for 0..9
 => ""
-1    -1    -1    0    0    0    0    1    1    1