add a benchmark using foldl

drym-org · Oct 6, 2023 · f78af67 · f78af67
1 parent 9298580
commit f78af67
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 0 deletions.
diff --git a/qi-sdk/profile/nonlocal/qi/main.rkt b/qi-sdk/profile/nonlocal/qi/main.rkt
@@ -14,6 +14,7 @@
          collatz
          filter-map
          filter-map-foldr
+         filter-map-foldl
          filter-map-values
          range-map-sum
          double-list
@@ -77,6 +78,11 @@
        (map sqr)
        (foldr + 0)))
 
+(define-flow filter-map-foldl
+  (~>> (filter odd?)
+       (map sqr)
+       (foldl + 0)))
+
 ;; (define-flow filter-map
 ;;   (~>> (filter odd?)
 ;;        (map sqr)

diff --git a/qi-sdk/profile/nonlocal/racket/main.rkt b/qi-sdk/profile/nonlocal/racket/main.rkt
@@ -9,6 +9,7 @@
          collatz
          filter-map
          filter-map-foldr
+         filter-map-foldl
          filter-map-values
          range-map-sum
          double-list
@@ -63,6 +64,9 @@
 (define (filter-map-foldr lst)
   (foldr + 0 (map sqr (filter odd? lst))))
 
+(define (filter-map-foldl lst)
+  (foldl + 0 (map sqr (filter odd? lst))))
+
 (define (filter-map-values . vs)
   (apply values
          (map sqr (filter odd? vs))))

diff --git a/qi-sdk/profile/nonlocal/spec.rkt b/qi-sdk/profile/nonlocal/spec.rkt
@@ -29,6 +29,9 @@
         (bm "filter-map-foldr"
             check-large-list
             50000)
+        (bm "filter-map-foldl"
+            check-large-list
+            50000)
         (bm "range-map-sum"
             check-value-large
             5000)