From 135ce23bd188c9351c8e9dde783a713b72dff8f3 Mon Sep 17 00:00:00 2001 From: sanine Date: Sun, 3 Dec 2023 23:44:33 -0600 Subject: implement Combinable for LatticePropList --- src/Agent.hs | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 src/Agent.hs (limited to 'src/Agent.hs') diff --git a/src/Agent.hs b/src/Agent.hs new file mode 100644 index 0000000..bb9e284 --- /dev/null +++ b/src/Agent.hs @@ -0,0 +1,16 @@ +module Agent + ( + ) where + + +import Mind (Network (..)) + + +data Agent a = Agent + { id :: Int + , net :: Network + , state :: [Float] + , x :: Int + , y :: Int + , flags :: a + } -- cgit v1.2.1