Small optimisations

2021-07-22 13:27:23 +02:00
parent 315cf780bf
commit 5d2dde6f35
5 changed files with 42 additions and 27 deletions
@@ -49,13 +49,14 @@ instance Foldable FTree where
 {- Tree with values at and only at the leaves. -}
 data LTree a
    = LBranches [LTree a]
-    | LLeaf a
+    | LLeaf !a
 instance Foldable LTree where
    foldMap g (LBranches ts) = mconcat $ map (foldMap g) ts
    foldMap g (LLeaf a) = g a
    {-# INLINE foldMap #-}
    foldr _ x (LBranches []) = x
-    foldr g x (LBranches (t:ts)) = foldr g (foldr g x (LBranches ts)) t
+    foldr g x (LBranches (t:ts)) = foldr g (foldr g x t) (LBranches ts)
+    --foldr g x (LBranches (t:ts)) = foldr g (foldr g x (LBranches ts)) t
    foldr g x (LLeaf y) = g y x
    {-# INLINE foldr #-}
    foldl' _ x (LBranches []) = x