Select Code to Download

    [[0, 1, 1, 2, 3],       8],

#!/usr/bin/perl

...
  
 sub d { return $_[0]->{d}; }
}

for my $t (@tests) {
    my @list = @{$t->[0]};
...
        print "??\n";
    }
}

1 : identified as a(n) = 1 : next = 1
1 1 : identified as a(n) = 1 : next = 1
...
1 2 3 1 : identified as a(n) = 5*a(n-1) + -7*a(n-2) : next = -16
1 3 5 : identified as a(n) = a(n-1) + 2 : next = 7
2 4 6 : identified as a(n) = a(n-1) + 2 : next = 8