Algorithm-Evolve
view release on metacpan or search on metacpan
examples/rock_paper_scissors.pl view on Meta::CPAN
> 'output' using :2 title 'Paper' with lines, \
> 'output' using :3 title 'Scissors' with lines
Notice how (in general) Scissors overtakes Paper which overtakes Rock which
overtakes scissors, etc.
In general, it's more interesting to evolve "thinking" strategies for Rock,
Paper, Scissors (or any game), than just a fixed sequence of moves. Such
strategies include state machines and genetic programming structures.
Hopefully, though, this example illustrates the ease with which you could
transparently swap in a different type of strategy for this game.
( run in 0.493 second using v1.01-cache-2.11-cpan-a1d94b6210f )