From fae22e68282336fc0d7f0efda236410a294b7eb5 Mon Sep 17 00:00:00 2001
From: sanine <sanine.not@pm.me>
Date: Tue, 21 Nov 2023 14:16:38 -0600
Subject: add failing compute tests

---
 src/Mind.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

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
-- 
cgit v1.2.1