Commit b8a8742c authored by Silas Kuder's avatar Silas Kuder
Browse files

stats show maximum usage now

parent 0c5417c7
......@@ -50,6 +50,7 @@ writeDistributedStats statFileName stats = do
type AccumStat a = [a]
avg :: (Integral a, Foldable t) => t a -> a
avg values = sum values `div` fromIntegral (length values)
......@@ -64,10 +65,11 @@ maxDeviatonFromAvg (sort -> svalues) =
formatAccum :: (Show a, Integral a) => AccumStat a -> String
formatAccum values =
printf "[Average %s (Max derivation %s) || Median %s]\n computed from %s"
printf "[Average %s (Max derivation %s) || Median %s || Maximum %s]\n computed from %s"
(show $ avg values)
(show $ maxDeviatonFromAvg values)
(show $ med values)
(show $ maximum values)
(show values)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment