Commit ed3c066f authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix arith013

parent b1ddfcf9
-- Test gcdInt/gcdInteger
import GHC.Real ( gcdInt )
import GHC.Integer.GMP.Internals ( gcdInteger )
-- Test gcd
main :: IO ()
main = do
test gcdInt [ -42, 0, 105 ]
test gcdInteger [-12193263111263526900, -42, 0, 105, 1234567890 ]
test gcd ([ -42, 0, 105 ] :: [Int])
test gcd ([-12193263111263526900, -42, 0, 105, 1234567890 ] :: [Integer])
test :: (Show a, Integral a) => (a -> a -> a) -> [a] -> IO ()
......
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