Merge commit 'd186091'

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / SumOfInverses2.scl

import "Prelude"\r
\r
f :: Integer -> Double\r
f m = sum [1/(fromInteger x) | x <- [1..m]]\r
\r
main = f 100\r
--\r
5.187377517639621\r