carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-26 05:45:37 +03:00
Code Issues Projects Releases Wiki Activity

core: remove statistics.sum

Browse Source
This commit is contained in:
hellerve 2018-06-11 21:35:25 +02:00
parent 2e742a9c18
commit 671116e59c
3 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/Statistics.carp
View File

@ -17,17 +17,8 @@
iqr Double
])
(defn sum [data]
(if (= 0 (Array.length data))
0.0
(let [total @(Array.nth data 0)]
(do
(for [i 1 (Array.length data)]
(set! total (+ total @(Array.nth data i))))
total))))
(defn mean [data]
(/ (Statistics.sum data) (from-int (Array.length data))))
(/ (Array.sum data) (from-int (Array.length data))))
(defn _pp [a mean]
(let [sum 0.0]
@ -164,7 +155,7 @@
(defn summary [samples]
(Summary.init
(Statistics.sum samples)
(Array.sum samples)
(Array.minimum samples)
(Array.maximum samples)
(mean samples)

2
docs/core/Statistics.html
View File

File diff suppressed because one or more lines are too long

4
test/statistics.carp
View File

@ -81,10 +81,6 @@
5.0
(iqr &[0.0 2.5 5.0 7.5 10.0])
"iqr works as expected")
(assert-equal test
10.0
(sum &[2.5 5.0 2.0 0.5])
"sum works as expected")
(assert-equal test
40.0
(stdev-pct &[1.0 1.0 9.0 9.0])