Hacker News new | ask | show | jobs
by james2vegas 4362 days ago
in Perl:

  sub values_in(\@\%) {
    my ($keys, $d) = @_;
    grep { $d->{$_} } @$keys
  }