Re-enabled Acorn transaction cancellation support for testing

[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / 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