1 {-# OPTIONS -optc-DNON_POSIX_SOURCE #-}
3 module Main (main) where
5 import IOExts ( unsafePerformIO )
8 po rd = 0.5 + 0.5 * erf ((rd / 1.04) / sqrt 2)
10 erf :: Double -> Double
11 erf x = unsafePerformIO (_ccall_ erf x)
13 main = putStr (shows (po 2.0) "\n")