Subject: | Powerful with power < 2 |
I think this is correct:
Show quoted text
> perl -MMath::NumSeq::Powerful -E 'my $seq = Math::NumSeq::Powerful->new(powerful_type=>"all",power=>1); say join " ", map { ($seq->next)[1] } 1..20'
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
but this is not:
Show quoted text > perl -MMath::NumSeq::Powerful -E 'my $seq = Math::NumSeq::Powerful->new(powerful_type=>"some",power=>1); say join " ", map { ($seq->next)[1] } 1..20'
4 8 9 12 16 18 20 24 25 27 28 32 36 40 44 45 48 49 50 52
Both types when given power=>0 do:
Illegal division by zero at [...]/Powerful.pm line 130.