Permalink
Browse files

Added r/fold which does not seem to improve my timing ???

  • Loading branch information...
1 parent 517bf33 commit 128dfc346727bfef44646bf156ff40b38be87858 @gigasquid committed Jul 8, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 src/reducers/core.clj
View
4 src/reducers/core.clj
@@ -30,5 +30,9 @@
(into [] (r/filter even? (r/map hashcode odyssey-text))) ;=> [80 114 ... ]
+(dotimes [n 5]
+ (println (str "r/map - r/filter - r/fold - ( run " n " ):"))
+ (time (r/fold + (r/filter even? (r/map hashcode odyssey-text)))))
+

0 comments on commit 128dfc3

Please sign in to comment.