view release on metacpan or  search on metacpan

lib/OEIS/A000045.pm  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use strict;
use warnings;
no  warnings 'syntax';
 
use experimental 'signatures';
 
our $VERSION = '2021041201';
 
my $values;
 
sub new  ($class) {bless do {\my $v} => $class}
sub init ($self, $initial_values) {
    @$values = @$initial_values;
    $self
}
 
sub oeis ($self, $to) {
    use bigint;
    $$values [0] //= 0;
    $$values [1] //= 1;
    for (my $i = @$values; $i < $to; $i ++) {