NAME

Games::Affenspiel - Play the Affenspiel game

SYNOPSIS

    # automatical random play script
    use Games::Affenspiel::Board;

    my $board = Games::Affenspiel::Board->new;
    $board->show;

    for (1 .. 5000) {
        sleep(1);
        my ($bar, $gap_position, $direction) = $board->choose_random_move;
        print "Move bar $bar in direction $direction to $gap_position\n";
        $board->show;
    }

ABSTRACT

Games::Affenspiel is a set of Perl classes implementing the Affenspiel game play.

DESCRIPTION

This package is intended to provide a basis for interactive (not yet) and automatic playing and manipulating of Affenspiel games.

Current built-in board configurations:

    0) 4x5; one 2x2, four 1x1, four 1x2, one 2x1 bars, two gaps
    1) 4x5; one 2x2 bar, 16 gaps (just a test board)
    2) 4x5; one 2x2, four 1x1, two 1x2, three 2x1 bars, two gaps

Currently installed scripts (run with --help):

    * affenspiel-random-moves
    * affenspiel-random-solve
    * affenspiel-solve

The Rules of Affenspiel

Board

The regular Affenspiel board is comprised of 20 cells, 4 rows (numbered 1 to 4) of 5 columns (numbered 1 to 5). The cell position is written in (y, x) notation.

The original board has two gaps and following bars: one 2x2, four 1x1, four 1x2, one 2x1. The position of the left-top corner of the bar is taken as the position of the bar.

Initial board

In the initial state, the 2x2 square bar is in position (1, 2),

    +----+
    |A/\A|
    |V[]V|
    | <> |
    |AOOA|
    |VOOV|
    +----+

The goal

In the final (solved) state, the 2x2 square bar is in position (4, 2)), Here is an example final board (there are many solutions):

    +----+
    |AOAA|
    |VAVV|
    |OV<>|
    | /\O|
    | []O|
    +----+

Moves

Each piece may be moved to left/right/up/down inside the board if there are enough gap(s) in that direction. No bar rotation is allowed.

CLASSES

    Games::Affenspiel
    Games::Affenspiel::Board

SEE ALSO

http://www.artsoft.org/affenspiel/

http://migo.sixbit.org/software/paffenspiel/

AUTHOR

Mikhael Goikhman <migo@homamail.com>

cpanm Games::Affenspiel

perl -MCPAN -e shell
install Games::Affenspiel