9 push @pos, [ splice(@l, 0, 3) ];
10 push @vel, [ splice(@l, 0, 3) ];
11 push @acc, [ splice(@l, 0, 3) ];
18 for my $i (0 .. $#acc) {
20 push @v, $vel[$i][$_] + $acc[$i][$_] for 0 .. 2;
23 push @p, $pos[$i][$_] + $v[$_] for 0 .. 2;
25 if (!$destroyed{$i}) {
26 my $key = join(',', @p);
28 $destroyed{$pos_now{$key}} = 1;
30 say "$_ destroyed $i because of $pos_now{$key} at $key";
40 say $#acc - keys %destroyed;