RosettaCodeData/Task/Averages-Root-mean-square/Futhark/averages-root-mean-square.futhark
2017-09-25 22:28:19 +02:00

4 lines
106 B
Text

import "futlib/math"
fun main(as: [n]f64): f64 =
f64.sqrt ((reduce (+) 0.0 (map (**2.0) as)) / f64(n))