16 my ($axis, $val) = /fold along (.)=(\d+)/;
20 my ($x, $y) = split /,/;
21 if ($axis eq 'x' && $x > $val) {
22 $dots{2*$val - $x,$y}++;
24 } elsif ($axis eq 'y' && $y > $val) {
25 $dots{$x,2*$val - $y}++;
31 for my $y (0 .. $max{y}) {
32 for my $x (0 .. $max{x}) {
33 print $dots{$x,$y} ? '#' : ' ';