view release on metacpan or  search on metacpan

examples/game_ai.pl  view on Meta::CPAN

#!/usr/local/bin/perl -w
use strict;
use lib '../blib/lib/', 'blib/lib';
use AI::NeuralNet::Simple;

use constant ATTACK => [1.0, 0.0, 0.0, 0.0]; 
use constant RUN    => [0.0, 1.0, 0.0, 0.0]; 
use constant WANDER => [0.0, 0.0, 1.0, 0.0]; 
use constant HIDE   => [0.0, 0.0, 0.0, 1.0]; 

use constant GOOD    => 2.0;
use constant AVERAGE => 1.0;
use constant POOR    => 0.0;

examples/logical_or.pl  view on Meta::CPAN

#!/usr/local/bin/perl -w
use strict;
use lib ('../blib/lib/', 'blib/lib/');;
use AI::NeuralNet::Simple;

my $net = AI::NeuralNet::Simple->new(2,1,2);
for (1 .. 100000) {
    $net->train([1,1],[0,1]);
    $net->train([1,0],[0,1]);
    $net->train([0,1],[0,1]);
    $net->train([0,0],[1,0]);
}