Fix example

wax failing on duplicate values
2019-02-28 15:30:20 +01:00 · 2019-02-28 15:30:20 +01:00 · 00fae8ede4
commit 00fae8ede4
parent 3ab242de11
1 changed files with 11 additions and 7 deletions
--- a/README.md
+++ b/README.md
@ -130,10 +130,14 @@ Padding is achieved as usual:
 => (sequence
        (x/window 3
          (fn
-         ([] (sorted-set))
-         ([s] (first s))
-         ([s x] (conj s x)))
-       disj)
+            ([] (sorted-map))
+            ([m] (key (first m)))
+            ([m x] (update m x (fnil inc 0))))
+          (fn [m x]
+            (let [n (dec (m x))]
+              (if (zero? n)
+                (dissoc m x)
+                (assoc m x (dec n))))))
        nums)
 (11 8 8 8 6 6 6 10)
 ```