The following code works... gggg = \x y -> (x+y - length [1..(gcd x y)] >= round (((fromIntegral x)+1)/2) ) -- Andre

hello,

Does anybody know why it is not possible to define the folowing function in ghc?

gggg= \x y -> (x+y - length [1..(gcd x y)] >= round ((x+1)/2)) )

The message obtained was this one:

No instance for (RealFrac Int) arising from use of `round' at num-s-divs.hs:253 In the second argument of `(>=)', namely `round ((x + 1) / 2)' In a lambda abstraction: (((x + y) - (length [1 .. (gcd x y)])) >= (round ((x + 1) / 2)))

Thanks in advance,

J. I. García

_______________________________________________ Glasgow-haskell-users mailing list Glasgow-haskell-users@haskell.org http://www.haskell.org/mailman/listinfo/glasgow-haskell-users