Select Code to Download

sub quant { # input: float 0 to 1 inclusive
    my $v = shift;
...
    elsif ($v<8/9) { return 7 }
    else { return 8 }
}