view release on metacpan or  search on metacpan

t/lib/NeuralNet/Layer.pm  view on Meta::CPAN

    my @input_grad = (0) x $in_size;
    for my $j (0 .. $in_size - 1) {
        for my $i (0 .. $out_size - 1) {
            $input_grad[$j] += $w->[$i][$j] * $grad->[$i];
        }
    }

    return \@input_grad;
}

sub update {
    my ($self, $lr) = @_;
    my $w = weights $self;
    my $b = biases $self;
    my $wg = weight_grads $self;
    my $bg = bias_grads $self;

    my $out_size = output_size $self;
    my $in_size = input_size $self;

    # Update weights and biases