Fixed multiple issues causing dangling references to discarded queries

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

import "Prelude"

main :: Double -> Double
main m = loop 1 0
  where
    loop x cur = if x > m
                 then cur
                 else loop (x+1) (cur + 1 / x)