my ($cb) = @_;
return unless $which eq 'Base';
foreach my $count (qw(1 2 3)) {
- foreach my $nspots (qw(1 2 3 4)) {
+ foreach my $nspots (qw(0 1 2 3 4)) {
$_ = $cb->($count,$nspots)."\t".$_;
}
}
$_=<DATA>; chomp or die;
xdata sub {
my ($xcount,$xnspots) = @_;
- "${xcount}x". (qw(X One Two Three Four)[$xnspots]);
+ "${xcount}x". (qw(Zero One Two Three Four)[$xnspots]);
};
our @names = split /\t/, $_;