SumOfInverses.scl

   1 import "Prelude"
   2
   3 main :: Double -> Double
   4 main m = loop 1 0
   5   where
   6     loop x cur = if x > m
   7                  then cur
   8                  else loop (x+1) (cur + 1 / x)