diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 2 | ||||
| -rw-r--r-- | test/clojure/test_clojure/sequences.clj | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 4c4fc473..2746a610 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -5555,7 +5555,7 @@ (lazy-seq (if-let [s (seq coll)] (reductions f (first s) (rest s)) - (f)))) + (list (f))))) ([f init coll] (cons init (lazy-seq diff --git a/test/clojure/test_clojure/sequences.clj b/test/clojure/test_clojure/sequences.clj index a8db5cb5..211674bf 100644 --- a/test/clojure/test_clojure/sequences.clj +++ b/test/clojure/test_clojure/sequences.clj @@ -1138,6 +1138,8 @@ {1 4 2 2 3 1} '(1 1 1 1 2 2 3))) (deftest test-reductions + (is (= (reductions + nil) + [0])) (is (= (reductions + [1 2 3 4 5]) [1 3 6 10 15])) (is (= (reductions + 10 [1 2 3 4 5]) |