use 5.38.0;

package Part1;

use List::AllUtils qw/ all sum /;

sub predict(@entries) {
    my $sum = 0;

    until( all { !$_ } @entries ) {
        $sum += $entries[-1];
        @entries = map { $entries[$_]-$entries[$_-1] } 1..$#entries;
    }

    return $sum;
}

sub solution_1 ($input) {
    my @lines = map { [split]} split "\n", $input;

    return sum map { predict(@$_) } @lines;
}

1;