Popularity
6.2
Declining
Activity
0.0
Stable
14
3
2

Monthly Downloads: 6
Programming language: Haskell
License: BSD 3-clause "New" or "Revised" License
Tags: AI     Simple    
Latest version: v0.2.0

simple-neural-networks alternatives and similar packages

Based on the "simple" category.
Alternatively, view simple-neural-networks alternatives based on common mentions on social networks and blogs.

Do you think we are missing an alternative of simple-neural-networks or a related project?

Add another 'simple' Package

README

simple-neural-networks

Simple parallel neural networks implementation in pure Haskell

import AI.NeuralNetworks.Simple
import Text.Printf
import System.Random
import Control.Monad

calcXor net x y =
    let [r] = runNeuralNetwork net [x, y]
    in  r

mse net =
    let square x = x * x
        e1 = square $ calcXor net 0 0
        e2 = square $ calcXor net 1 0 - 1
        e3 = square $ calcXor net 0 1 - 1
        e4 = square $ calcXor net 1 1
    in 0.5 * (e1 + e2 + e3 + e4)

stopf best gnum = do
    let e = mse best
    when (gnum `rem` 100 == 0) $
        printf "Generation: %02d, MSE: %.4f\n" gnum e
    return $ e < 0.002 || gnum >= 10000

main = do
    gen <- newStdGen
    let (rnet, _) = randomNeuralNetwork gen [2,2,1] [Logistic, Logistic] 0.45
        ex = [ ([0,0],[0]), ([0,1],[1]), ([1,0],[1]), ([1,1],[0]) ]
    net <- backpropagationBatchParallel rnet ex 0.4 stopf :: IO (NeuralNetwork Double)
    putStrLn ""
    putStrLn $ "Result: " ++ show net
    _ <- printf "0 xor 0 = %.4f\n" (calcXor net 0 0)
    _ <- printf "1 xor 0 = %.4f\n" (calcXor net 1 0)
    _ <- printf "0 xor 1 = %.4f\n" (calcXor net 0 1)
    printf "1 xor 1 = %.4f" (calcXor net 1 1)

For more details see: