method start2(@inputs) { ### without any traning, first neurons are for the input pattern loop (my $n = 0; $n < @inputs.length; $n++) { @.neurons[$n].input = @inputs[$n]; } loop (my $i = 0; $i < @.neurons.length; $i++) { loop (my $j = 0; $j < @.neurons.length; $j++) { loop (my $k = 0; $k < @.neurons.length; $k++) { if ($k == $j) { next; }; @.neurons[$i].inputsynapses[$j].weight += (2 * @.neurons[$i].inputsynapses[$j].outputneuron.input - 1) * (2 * @.neurons[$i].inputsynapes[$k].outputneuron.input -1); } } } } };