for my $l (0 .. $n - 1) {
for my $x (0 .. $q) {
for my $y (0 .. $q) {
- last if $s1 + $l + $x > $n or $s1 + $x + $y > $l
- or $s2 + $l + $x > $n or $s2 + $x + $y > $l;
+ next if $l - $x - $y < 0 or $s2 + $l - $y < 0;
my $desc = "vcopy [ $x, $y ], $s1, $s2, $l (move)";
pat $v, $s1 + $x, $l - $x - $y, 0;
my $v0 = $v;