Name: Anonymous 2012-09-22 12:08
$ racket
Welcome to Racket v5.1.3.3
(+)
0
$ racket
Welcome to Racket v5.1.3.3
(+)
0
a-plus-abs-b = (+ abs)instance (Num a, Eq a) => Num (x -> a) where
fromInteger = const . fromInteger
f + g = liftM2 (+) f g
f * g = liftM2 (*) f g
f - g = liftM2 (-) f g
negate = (negate .)
abs = (abs .)
signum = (signum .)