mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-07 12:32:55 +00:00
Code Issues 1 Releases Wiki Activity

Fix sum and product.

Browse Source
This commit is contained in:
Calvin Rose 2018-07-10 06:51:05 -04:00
parent e777dc4304
commit 6050a080b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/core.dst
View File

@ -326,12 +326,12 @@
$accum)) $accum))
(defn sum [xs] (defn sum [xs]
(var accum 0.0) (var accum 0)
(loop [x :in xs] (+= accum x)) (loop [x :in xs] (+= accum x))
accum) accum)
(defn product [xs] (defn product [xs]
(var accum 0.0) (var accum 1)
(loop [x :in xs] (*= accum x)) (loop [x :in xs] (*= accum x))
accum) accum)