1 files changed, 6 insertions, 0 deletions
diff --git a/src/Mind.hs b/src/Mind.hs
index 1ce8ab3..2971476 100644
--- a/src/Mind.hs
+++ b/src/Mind.hs
@@ -7,6 +7,7 @@ module Mind
   , Network (..)
   , createEmptyNetwork
   , connectNeurons
+  , compute
   ) where
 
 import Data.Ix
@@ -71,3 +72,8 @@ insertEdge ns i e
   | (inRange (0, length ns) i) = let (front, es:back) = splitAt i ns
     in Just $ front ++ [e:es] ++ back
   | otherwise = Nothing
+
+
+-- network computation
+compute :: Network -> [Float] -> [Float] -> Maybe ([Float], [Float])
+compute net input state = undefined