4 use experimental 'for_list', 'builtin';
22 for (split /,/, $line) {
23 my ($name, $op, $num) = /(\w+)(\W)(\d*)/;
29 if ($s->[0] eq $name) {
35 push @$sl, [ $name, $num ];
37 } elsif ($op eq '-') {
38 @$sl = grep { $_->[0] ne $name } @{ $slot[$id] };
43 for my ($i, $s) (indexed @slot) {
44 for my ($j, $p) (indexed @$s) {
45 $sum += ($i+1) * ($j+1) * $p->[1];