benchmark foldr

Reveals that it is very, very un-stack-safe

Author: matthewleon

bench/Bench/Data/Map.purs

@@ -4,7 +4,7 @@ import Prelude
 
 import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Console (CONSOLE, log)
-import Data.Foldable (foldl)
+import Data.Foldable (foldl, foldr)
 import Data.List (zipWith)
 import Data.List as L
 import Data.Map as M
@@ -29,6 +29,10 @@ benchMap = do
   log "------------"
   benchFoldl
 
+  log "foldr"
+  log "------------"
+  benchFoldr
+
   where
 
   nats = L.range 0 999999
@@ -78,3 +82,17 @@ benchMap = do
     log $ "foldl: big map (" <> show (M.size bigMap) <> ")"
     benchWith 10  \_ -> sum bigMap
 
+  benchFoldr = do
+    let sum = foldr (+) 0
+
+    log "foldr: singleton map"
+    bench \_ -> sum singletonMap
+
+    log $ "foldr: small map (" <> show (M.size smallMap) <> ")"
+    bench \_ -> sum smallMap
+
+    log $ "foldr: midsize map (" <> show (M.size midMap) <> ")"
+    benchWith 100 \_ -> sum midMap
+
+    log $ "foldr: big map (" <> show (M.size bigMap) <> ")"
+    benchWith 10  \_ -> sum bigMap