- my $n = [ @$t ]; $n->[$ix] = \@midp; $n->[3] = "$t->[3]a$ix$jx";
- unshift @$changed, $n;
-
- printf STDERR "%s\n", sprintf_triangle $n;
-
- my $n = [ @$t ]; $n->[$jx] = \@midp; $n->[3] = "$t->[3]b$ix$jx";
- unshift @$changed, $n;
-
- printf STDERR "%s\n", sprintf_triangle $n;
-
+ my $gensplit = sub {
+ my ($ixjx, $xwhat) = @_;
+ my $n = [ @$t ];
+ $n->[$ixjx] = \@midp;
+ $n->[3] = "$t->[3]$xwhat";
+ printf STDERR "%s\n", sprintf_triangle $n if $debug;
+ unshift @$changed, $n;
+ };
+ $gensplit->($ix, "a$ix$jx");
+ $gensplit->($jx, "b$ix$jx");