Merge commit 'bf75fd9'

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

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