• + 0 comments

    Perl:

    sub hurdleRace {
        my ($k, $height) = @_;
       
        return (max(@$height) < $k) ? 0 : max(@$height) - $k;
    }