Hello, 

I did not get what I messed up? 

Thanks, 

-Jim 

=begin 

=cut 

        use AI::NeuralNet::BackProp; 
        my $net = new AI::NeuralNet::BackProp(3,1,1)­; 
        #$net-> debug(4); 

        my @map = ([0], 
                   [1], 
                   [2], 
                   [3], 
                  ); 

        my @res = ([0], 
                   [1], 
                   [4], 
                   [9], 
                  ); 

        $net-> learn(\@map,\@res); 
        print $net-> learn(\@map,\@res); 

        my @test = (2); 

        my $result = $net-> run(\@test); 

        sleep (1); 



__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com