Although I support the notion that you have to give code to get code, I've always wanted to be a patron of the arts.
#!/usr/bin/perl
use strict;
use warnings;
my @backgrounds = qw/aqua barnred butter cream gold grey ivory lavend
+er mint mushroom parchment pink sage skyblue tan/;
my @accents = qw/aqua barnred black burgundy butter chocolate cre
+am gold grey ivory lavender mint mushroom parchment pink sage skyblue
+ tan terracotta turqouise violet/;
my @focuses = qw/black burgundy chocolate terracotta turquoise vi
+olet/;
for my $background (@backgrounds) {
for my $accent (@accents) {
for my $focus (@focuses) {
print "$background $accent $focus\n" unless $accent eq $focus;
}
}
}
I'll spare my fellow monks the 41k of output, but
Bard Judith could have gotten it from
my Scratch Pad for a limited time.