view release on metacpan or  search on metacpan

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

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 ++) {