#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Games::Checkers::Iterators;
use Games::Checkers::Board;
my $board = Games::Checkers::Board->new($ENV{BOARD}, $ENV{BOARD_SIZE});
sub dump_location ($) {
        my $loc = shift;
        return sprintf("%02d (%s)", $loc, $board->loc_to_str($loc));
}
print "All board locations:\n";
my $iterator = Games::Checkers::LocationIterator->new($board);
my @locations = $iterator->all;
print "\t", dump_location($_), "\n" foreach @locations;