This tiny change makes the code 10 times slower.

kindaro · Sep 12, 2021 · d79cd4a · d79cd4a
1 parent 75ab01c
commit d79cd4a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Main.hs b/Main.hs
@@ -99,7 +99,7 @@ instance KnownNat dimension ⇒ Memoizable (Vector dimension Int) where
 instance {-# overlapping #-} KnownNat dimension ⇒ Memoizable [Vector dimension Int] where
   memoize function = \ input → fromMaybe (function input) (findInTree memory input)
     where
-      memory = trace "" buildTree (Set.fromList theBox) function
+      memory = buildTree (Set.fromList theBox) function
 
 type Tree key value = Cofree (Map key) value