view release on metacpan or  search on metacpan

AI-ActivationFunctions-0.01/AI-ActivationFunctions-0.01/examples/simple.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

use FindBin qw($Bin);
use lib "$Bin/../lib";

use AI::ActivationFunctions qw(:all);

print "=== Demonstração Completa ===\n\n";

print "1. Funções Básicas:\n";
printf("   relu(5)        = %d\n", relu(5));
printf("   relu(-3)       = %d\n", relu(-3));
printf("   prelu(-2, 0.1) = %.1f\n", prelu(-2, 0.1));
printf("   sigmoid(0)     = %.4f\n", sigmoid(0));

examples/simple.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;

use FindBin qw($Bin);
use lib "$Bin/../lib";

use AI::ActivationFunctions qw(:all);

print "=== Demonstração Completa ===\n\n";

print "1. Funções Básicas:\n";
printf("   relu(5)        = %d\n", relu(5));
printf("   relu(-3)       = %d\n", relu(-3));
printf("   prelu(-2, 0.1) = %.1f\n", prelu(-2, 0.1));
printf("   sigmoid(0)     = %.4f\n", sigmoid(0));

test_quick.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/lib";

# Testar se o módulo carrega
eval {
    require AI::ActivationFunctions;
    AI::ActivationFunctions->import(qw(relu prelu sigmoid));
    1;
} or die "Erro ao carregar módulo: $@";

print "=== Teste Rápido ===\n\n";