our %want;
+our $nknives = 3;
+
our @part_order = qw(h b l);
my $want = shift @ARGV;
sub want ($) {
my ($colournum) = @_;
- my $knife = ($colournum-1) % 3;
+ my $knife = $nknives-1 - ($colournum-1) % $nknives;
return 0 unless $knife == $wknife;
- my $part = $part_order[ floor(($colournum-1) / 3) ];
+ my $part = $part_order[ floor(($colournum-1) / $nknives) ];
die "huh colour $colournum?" unless defined $part;
return 0 unless $part =~ m/[$wparts]/o;
print STDERR "$0: including colour $colournum ($knife $part)\n";