problem definind a function

[Andre W B Furtado]

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
>