Help for this page

Select Code to Download


  1. or download this
      DB<125> @a=(0)x10
 => (0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
...

  DB<127> any {$_==0} @a
 => 1
  2. or download this
      DB<138> sub any (&@) { defined &first (shift, @_) } 

  DB<139> any {$_==0} @a
 => 1
  3. or download this
      DB<144> sub any (&\@) { defined &first } 

  DB<145> any {$_==0} @a
 => 1
  4. or download this
      DB<230> sub any (&@) {  my $x=&List::Util::first; defined $x  } 

...

  DB<233> @a
 => (1, 2, 3, 4, 5)