8 our @part_order = qw(h b);
10 my $want = shift @ARGV;
11 my ($wknife,$wparts) = $want =~ m/^(\d)([a-z]+)$/ or die;
15 my $knife = ($colournum-1) % 3;
16 return 0 unless $knife == $wknife;
17 my $part = $part_order[ floor(($colournum-1) / 3) ];
18 die "huh colour $colournum?" unless defined $part;
19 return 0 unless $part =~ m/[$wparts]/o;
20 print STDERR "$0: including colour $colournum ($knife $part)\n";
29 (m/^(?:3 1|2 3) \d+ \d+ (\d+) / && !want($1));