gistfile1.txt

sub bentley_clever($seed) {
    constant $mod = 1_000_000_000;

    my @state;
    sub subrand() {
        push @state, (my $x = (@state.shift - @state[*-24]) % $mod);
        $x;
    }

    my @seed = ($seed % $mod, 1, (* - *) % $mod ... *)[^55];
    @state = @seed[ 34, (* + 34 ) % 55 ... 0 ];
    subrand() for 55 .. 219;

    &subrand ... *;
}

my @sr := bentley_clever(292929);
.say for @sr[^10];