You are viewing a single comment's thread. Return to all comments →
Perl:
sub angryProfessor { my ($k, $a) = @_; return ($k > scalar(my @t = grep { $_ <= 0 } @$a)) ? "YES" : "NO"; }
Seems like cookies are disabled on this browser, please enable them to open this website
Angry Professor
You are viewing a single comment's thread. Return to all comments →
Perl: