9 my ($x, $y, $dx, $dy) = /(-?\d+)/g;
10 push @pts, [ $x, $y ];
11 push @vel, [ $dx, $dy ];
19 my ($minx, $miny, $maxx, $maxy);
20 for my $i (0 .. $#pts) {
23 $pt->[$_] += $ve->[$_] for 0 .. 1;
24 $maxx = $pt->[0] if !defined $maxx || $maxx < $pt->[0];
25 $maxy = $pt->[1] if !defined $maxy || $maxy < $pt->[1];
26 $minx = $pt->[0] if !defined $minx || $minx > $pt->[0];
27 $miny = $pt->[1] if !defined $miny || $miny > $pt->[1];
28 $map{$pt->[0],$pt->[1]}++;
30 my $dim = $maxx-$minx + $maxy-$miny;
32 for my $y ($miny .. $maxy) {
33 for my $x ($minx .. $maxx) {
34 print $map{$x,$y} ? '#' : '.';