sigmoid :: Float -> Float
sigmoid x = 1.0 / (1 + exp (-x))
nActivation :: (Float,Float) -> Float
nActivation (x,y) = sigmoid(x*y)
nActivationSum :: [(Float, Float)] -> [Float]
nActivationSum [] = []
nActivationSum (inputs:weights) = nActivation (inputs, weights)
In the return type of a call of `nActivation'
In the expression: nActivation (inputs, weights)
In an equation for `nActivationSum':
nActivationSum (inputs : weights) = nActivation (inputs, weights)