Select Code to Download

sub nonlin {
    my ( $x, $deriv ) = @_;
...
    return $f * ( 1 - $f ) if defined $deriv;
    return $f;
}

Output After Training:
[
...
 [     0.999593]
 [     0.999388]
]