11 if (/rect (\d+)x(\d+)/) {
12 for my $x (0 .. $1-1) {
13 for my $y (0 .. $2-1) {
16 } elsif (/rotate row y=(\d+) by (\d+)/) {
18 for my $x (0 .. $w-1) {
21 $ns{$x,$1} = $screen{$sx,$1};
24 } elsif (/rotate column x=(\d+) by (\d+)/) {
26 for my $y (0 .. $h-1) {
29 $ns{$1,$y} = $screen{$1,$sy};
35 my $sum =()= grep { $screen{$_} } keys %screen;