Interesting problem ... this is as far as i got before
giving up. I borrowed some of
merlyn's code from
Permutations and combinations:
for my $row (combinations(1..3)) {
my @row = 1..3;
$row[$_-1] = "($row[$_-1])" for @$row;
print "@row\n";
}
# from [id://24270] by [merlyn]
sub combinations {
return [] unless @_;
my $first = shift;
my @rest = combinations(@_);
return @rest, map { [$first, @$_] } @rest;
}
__END__
1 2 3
1 2 (3)
1 (2) 3
1 (2) (3)
(1) 2 3
(1) 2 (3)
(1) (2) 3
(1) (2) (3)
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)