AI::Fuzzy 0.01

AI::Fuzzy is a Perl extension for Fuzzy Logic.

SYNOPSIS

use AI::Fuzzy;

my $f = new AI::Fuzzy::Label;

$f->addlabel("baby", -1, 1, 2.5);
$f->addlabel("toddler", 1, 1.5, 3.5);
$f->addlabel("little kid", 2, 7, 12);
$f->addlabel("kid", 6, 10, 14);
$f->addlabel("teenager", 12, 16, 20);
$f->addlabel("young adult", 18, 27, 35);
$f->addlabel("adult", 25, 50, 75);
$f->addlabel("senior", 60, 80, 110);
$f->addlabel("relic", 100, 150, 200);


for (my $x = 0; $x<50; $x+=4) {
print "$x years old => " . $f->label($x) . "n";
}