unit module ann;

use ann::HopfieldSynaps;

class HopfieldNeuron is export {

        has @.inputsynapses;
        has @.outputsynapses;

        has $.input;

        method BUILD($y1 = 1000000.rand) {
                $.input = $y1;

        }

        method fire() {

                ### with training update weights
                loop (my $i = 0; $i < @.inputsynapses.length; $i++) {
                        if (@.inputsynapses[$i].weight * @.inputsynapses[$i].outputneuron.input >= 0) {
                                @.inputsynapses[$i].outputneuron.input = 1;
                        } else {
                                @.inputsynapses[$i].outputneuron.input = 0;
                        }
                }
        }


}