diff options
Diffstat (limited to 'src/clojure/contrib/accumulators/examples.clj')
| -rw-r--r-- | src/clojure/contrib/accumulators/examples.clj | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/clojure/contrib/accumulators/examples.clj b/src/clojure/contrib/accumulators/examples.clj index a3d7b026..ee0727e9 100644 --- a/src/clojure/contrib/accumulators/examples.clj +++ b/src/clojure/contrib/accumulators/examples.clj @@ -53,6 +53,21 @@ p2 (add-items empty-product [(/ 1 2)])] (combine p1 p2)) +; Maximum accumulator: combine is max +(let [m1 (add-items empty-maximum [2 3]) + m2 (add-items empty-maximum [(/ 1 2)])] + (combine m1 m2)) + +; Minimum accumulator: combine is min +(let [m1 (add-items empty-minimum [2 3]) + m2 (add-items empty-minimum [(/ 1 2)])] + (combine m1 m2)) + +; Range accumulator: combination of minimum and maximum +(let [m1 (add-items empty-range [2 3]) + m2 (add-items empty-range [(/ 1 2)])] + (combine m1 m2)) + ; String accumulator: combine is concatenation (combine "a" "b" "c" "def") (add "a" (char 44)) |