4 use List::Util qw(min);
7 my @seeds = scalar(<>) =~ /\d+/g;
12 my @rules = split /\n/;
14 @rules = map { [ /\d+/g ] } @rules;
16 for my $rule (@rules) {
17 if ($_ >= $rule->[1] && $_ < $rule->[1] + $rule->[2]) {
18 $_ = $rule->[0] + $_ - $rule->[1];