9 my ($x, $y) = split /,/;
17 my ($axis, $val) = /fold along (.)=(\d+)/;
19 $maxx = $val if $axis eq 'x' && (!$maxx || $maxx > $val);
20 $maxy = $val if $axis eq 'y' && (!$maxy || $maxy > $val);
22 for my $x (keys %dots) {
23 for my $y (keys %{$dots{$x}}) {
24 if ($axis eq 'x' && $x > $val) {
25 $dots{2*$val - $x}{$y}++;
27 } elsif ($axis eq 'y' && $y > $val) {
28 $dots{$x}{2*$val - $y}++;
34 for my $y (0 .. $maxy) {
36 print $dots{$x}{$y} ? '#' : ' ';