From 31467d32f5e47efa25135f5223baadbbdf743e7e Mon Sep 17 00:00:00 2001
From: Joshua Moerman <joshua.moerman@ou.nl>
Date: Mon, 11 Mar 2024 13:31:52 +0100
Subject: [PATCH] Removes example

---
 src/SplittingTree.hs | 72 --------------------------------------------
 1 file changed, 72 deletions(-)

diff --git a/src/SplittingTree.hs b/src/SplittingTree.hs
index e662e83..63b8dbb 100644
--- a/src/SplittingTree.hs
+++ b/src/SplittingTree.hs
@@ -267,75 +267,3 @@ refine ping outputs transitionsReverse = do
       loop (splitters <> newQueue)
 
   loop initialQueue
-
--- Below is an example
-
-outputA :: String -> Bool
-outputA "s1" = False
-outputA "s2" = True
-outputA "s3" = False
-outputA "s4" = True
-outputA "s5" = False
-outputA "s6" = True
-outputA str = error $ "outputA '" ++ str ++ "'"
-
-outputB :: String -> Bool
-outputB = const False
-
-reverseA :: String -> [String]
-reverseA "s1" = ["s6"]
-reverseA "s2" = ["s1"]
-reverseA "s3" = ["s2"]
-reverseA "s4" = ["s3"]
-reverseA "s5" = ["s4"]
-reverseA "s6" = ["s5"]
-reverseA str = error $ "reverseA '" ++ str ++ "'"
-
-reverseB :: String -> [String]
-reverseB "s1" = ["s1", "s6"]
-reverseB "s2" = []
-reverseB "s3" = ["s2"]
-reverseB "s4" = ["s3"]
-reverseB "s5" = ["s4"]
-reverseB "s6" = ["s5"]
-reverseB str = error $ "reverseB '" ++ str ++ "'"
-
-splitter1 :: Splitter String Char Bool
-splitter1 = Splitter
-  { split = Map.fromList [(False, ["s1", "s3", "s5"])]
-  , leftOut = True
-  , witness = "a"
-  }
-
-splitter2 :: Splitter String Char Bool
-splitter2 = Splitter
-  { split = Map.fromList [(True, ["s2", "s4", "s6"])]
-  , leftOut = False
-  , witness = "a"
-  }
-
-prState0 :: PRState String Char Bool
-prState0 = PRState
-  { partition = Partition $ Map.fromList [("s1", Block 0), ("s2", Block 0), ("s3", Block 0), ("s4", Block 0), ("s5", Block 0), ("s6", Block 0)]
-  , nextBlockId = Block 1
-  , splittingTree = SplittingTree
-      { label = Map.empty
-      , innerParent = Map.empty
-      , blockParent = Map.empty
-      , size = Map.fromList [(Block 0, 6)]
-      }
-  , nextNodeId = Node 0
-  }
-
-prState :: PRState String Char Bool
-prState = PRState
-  { partition = Partition $ Map.fromList [("s1", Block 0), ("s2", Block 1), ("s3", Block 0), ("s4", Block 1), ("s5", Block 0), ("s6", Block 1)]
-  , nextBlockId = Block 2
-  , splittingTree = SplittingTree
-      { label = Map.singleton (Node 0) "a"
-      , innerParent = Map.empty
-      , blockParent = Map.fromList [(Block 0, (Node 0, False)), (Block 1, (Node 0, True))]
-      , size = Map.fromList [(Block 0, 3), (Block 1, 3)]
-      }
-  , nextNodeId = Node 1
-  }
\ No newline at end of file