Perlism for the day:
sub any(&@) { my $sub = shift; for(@_) {return 1 if $sub->()}; return undef; } print "blah\n" if any {$_==1} 0, 1, 2;
Perlism for the day:
sub any(&@) { my $sub = shift; for(@_) {return 1 if $sub->()}; return undef; } print "blah\n" if any {$_==1} 0, 1, 2;