NNDeepSeq.hs

type Value = Float
type Neuron= ([Value],Value)
type Network = ([Neuron],[Neuron])

class DeepSeq a where
        deepSeq :: a -> a        
        deepSeq x=x `seq` x

instance DeepSeq Value
        
instance DeepSeq a => DeepSeq [a] where
        deepSeq []=[]
        deepSeq (x:xs)=deepSeq x `seq` deepSeq xs `seq` (x:xs)  
        
instance DeepSeq Neuron where
        deepSeq (vals,t)=
                let v2=deepSeq vals
                in v2 `seq` (v2,deepSeq t)
        
instance DeepSeq Network where
        deepSeq (is,os)= 
                let     is2=deepSeq is
                        os2=deepSeq os
                in is2 `seq` os2 `seq` (is2, os2)