• + 0 comments

    Perl:

    sub angryProfessor {
        my ($k, $a) = @_;
        
        return ($k > scalar(my @t = grep { $_ <= 0 } @$a)) ? "YES" : "NO";
    }