carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 05:25:28 +03:00
Code Issues Projects Releases Wiki Activity

Fix tests on memory.carp, Modify Statistics module as Veit Heller

Browse Source 
sugested
This commit is contained in:
GrayJack 2019-05-14 20:11:19 -03:00
parent bfd80fd4af
commit 353f8470ed
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/Statistics.carp
View File

@ -5,8 +5,8 @@
(defmodule Statistics
(deftype Summary [
sum Double,
min (Maybe Double),
max (Maybe Double),
min Double,
max Double,
mean Double,
median Double,
var Double,
@ -177,8 +177,8 @@
(defn summary [samples]
(Summary.init
(Array.sum samples)
(Array.minimum samples)
(Array.maximum samples)
(Maybe.from (Array.minimum samples) 0.0)
(Maybe.from (Array.maximum samples) 0.0)
(mean samples)
(median samples)
(variance samples)

4
test/memory.carp
View File

@ -231,11 +231,11 @@
(defn array-maximum []
(let [xs [1 7 2 9 3 8 4 6 5]]
(assert (= (Maybe.Just 9) (maximum &xs)))))
(assert (= &(Maybe.Just 9) &(maximum &xs)))))
(defn array-minimum []
(let [xs [8 4 6 5 1 7 2 9 3]]
(assert (= (Maybe.Just 1) (minimum &xs)))))
(assert (= &(Maybe.Just 1) &(minimum &xs)))))
(defn array-sum []
(let [xs [10 20 30 40 50]]