[project @ 1997-03-14 08:02:40 by simonpj]
[nofib.git] / GHC_ONLY / cg035 / Main.hs
1 module Main (main) where
2
3 --import PreludeGlaST
4 import ST
5 import STBase
6
7 po :: Double -> Double
8 po rd = 0.5 + 0.5 * erf ((rd / 1.04) / sqrt 2)
9 where
10 erf :: Double -> Double
11 erf x = unsafePerformPrimIO (_ccall_ erf x)
12
13 main = putStr (shows (po 2.0) "\n")