SPUG: Primes

[Fred Morris]

Good to know!

--

Fred Morris

On Saturday 06 October 2007 04:34, John W. Krahn wrote:
> Fred Morris wrote:
> > [...]
> >     my $next_i = $i + $k;
> >     if (exists $numbers{$next_i}) {
> >         push @{$numbers{$next_i}}, $k;
> >     }
> >     else {
> >         $numbers{$next_i} = [$k];
> >     }
> 
> No need to test for key existence, perl will autovivify the array.
> 
>        my $next_i = $i + $k;
>        push @{ $numbers{ $next_i } }, $k;
>