Commit f4de0fcc authored by Neil Mitchell's avatar Neil Mitchell

Add a type signature to imaginary/integrate, for compilers lacking the monomorphism restriction

parent f548276e
......@@ -22,7 +22,8 @@ integrate2D l1 u1 l2 u2 f = integrate1D l2 u2
zark u v = integrate2D 0.0 u 0.0 v (\x->(\y->x*y))
ints = [1.0..]
-- type signature required for compilers lacking the monomorphism restriction
ints = [1.0..] :: [Double]
zarks = zipWith zark ints (map (2.0*) ints)
rtotals = head zarks : zipWith (+) (tail zarks) rtotals
rtotal n = rtotals!!n
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment