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