List::MoreUtilsのany、all、none、notall について

any、all、none、notallの４つについて、使う時に用途がゴチャゴチャしちゃうので備忘録

▼ソースを見るとこうなってる。

sub any (&@) {
   my $f = shift;
   foreach ( @_ ) {
       return YES if $f->();
   }
   return NO;
}

⇒どれか１つでもTRUEが存在すればYESを返す。全てFALSEならNOを返す。

sub all (&@) {
   my $f = shift;
   foreach ( @_ ) {
       return NO unless $f->();
   }
   return YES;
}

⇒全てTRUEであればYESを返す。どれか１つでもFALSEがあればNOを返す。

sub none (&@) {
   my $f = shift;
   foreach ( @_ ) {
       return NO if $f->();
   }
   return YES;
}

⇒どれか１つでもTRUEが存在すればNOを返す。全てFALSEならYESを返す。

sub notall (&@) {
   my $f = shift;
   foreach ( @_ ) {
       return YES unless $f->();
   }
   return NO;
}

⇒全てTRUEならFALSEを返す。どれか１つでもFALSEが存在すればYESを返す。

もしList::MoreUtilsを利用出来ない環境であれば、直接これを書いてしまっても良いかも、

ROUTE 3390