Help for this page

Select Code to Download


  1. or download this
    knoppix@Microknoppix:~$ perl -MList::Util=sum -E '
> @array = (
...
>    ( grep { ! sum @{ $array[ $_ ] } } 0 .. $#array )[ 0 ] ] }};'
First all-zero row is 3
knoppix@Microknoppix:~$
  2. or download this
    knoppix@Microknoppix:~$ perl -MList::Util=sum,first -E '
> @array = (
...
>    first { ! sum @{ $array[ $_ ] } } 0 .. $#array;'
First all-zero row is 3
knoppix@Microknoppix:~$
  3. or download this
    knoppix@Microknoppix:~$ perl -MList::Util=first -E '
> @array = (
...
> '
First all-zero row is -> 4
knoppix@Microknoppix:~$