Anonymous user
Averages/Mean time of day: Difference between revisions
→{{header|OCaml}}: skip dividing by n that is unnescessary
(→{{header|OCaml}}: added output) |
(→{{header|OCaml}}: skip dividing by n that is unnescessary) |
||
Line 20:
let sum_sin = List.fold_left (fun sum a -> sum +. sin a) 0.0 angles
and sum_cos = List.fold_left (fun sum a -> sum +. cos a) 0.0 angles in
▲ atan2 (sum_sin /. n) (sum_cos /. n)
let mean_time times =
|