crazy !

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Net> let final = iterate (\n -> backProps n samples) test_net !! 10
*Net> final
[[Thresold : 2.0
Weights : [0.21575592216632897,-8.72596090755581e-2],Thresold : 0.3
Weights : [6.884619174627604e-2,-0.21582495454972908]],[Thresold : 1.0
Weights : [0.2849152351487907,0.19990859538351183]]]
*Net> computeNet final [1.0,1.0]
[0.29234516816806894]
*Net> computeNet final [0.0,0.0]
[0.2929779149089307]
*Net> computeNet final [0.0,1.0]
[0.29031999020593324]
*Net> computeNet final [1.0,0.0]
[0.29513324134440694]