@@ -87,7 +87,7 @@ viewHelp : Statistics -> Html
8787viewHelp statistics =
8888 case statistics of
8989 Result name {hz} ->
90− text (name ++ " - " ++ toString hz ++ " ops/sec")
90+ text (name ++ " - " ++ prettyFloat hz ++ " ops/sec")
9191
9292 StatSuite name subStats ->
9393 let
@@ -98,3 +98,24 @@ viewHelp statistics =
9898 [ text name
9999 , ul [] (List.map (\html -> li [] [html]) subResults)
100100 ]
101+
102+
103+prettyFloat : Float -> String
104+prettyFloat float =
105+ String.join "," (numberChunker (round float) [])
106+
107+
108+numberChunker : Int -> List String -> List String
109+numberChunker n chunks =
110+ let
111+ next =
112+ n // 1000
113+
114+ chunk =
115+ n % 1000
116+ in
117+ if next == 0 then
118+ toString chunk :: chunks
119+
120+ else
121+ numberChunker next (String.padLeft 3 '0' (toString chunk) :: chunks)