28 lines
673 B
Haskell
28 lines
673 B
Haskell
module Main where
|
|
|
|
import Lib
|
|
import Numeric.LinearAlgebra
|
|
import Data.List
|
|
import Debug.Trace
|
|
|
|
-- 1x2
|
|
-- 2x3 + 1x3
|
|
-- 3x1 + 1x1
|
|
|
|
main :: IO ()
|
|
main =
|
|
let learning_rate = 0.01
|
|
ih = randomLayer 0 (2, 10)
|
|
ho = randomLayer 1 (10, 1)
|
|
network = ih :- O ho
|
|
inputs = [vector [0, 1], vector [1, 1], vector [1, 0], vector [0, 0]]
|
|
|
|
-- result = forward input network
|
|
|
|
labels = [vector [1], vector [0], vector [1], vector [0]]
|
|
|
|
updated_network = session inputs network labels learning_rate 100
|
|
-- updated_network = train (head inputs) network (head labels) 0.5
|
|
results = map (`forward` updated_network) inputs
|
|
in print results
|