Help for this page

Select Code to Download

Select or download this

sub assign_max {
    my ($x, $y) = @_;
...
    assign_max($k, $lt);
    $h = 0;
}