SOE exercise

Hal Daume III hdaume@ISI.EDU
Tue, 22 Oct 2002 09:49:46 -0700 (PDT)


> applyEach [(+1), (+3), (+2)]  1
> => [2,4,3] :: [Integer]
> 
> > applyEach' :: [a->b] -> a -> [b]
> > applyEach' funs x = map applyx funs where applyx (fun) = fun x

...or more simply:

applyEach' l x = map ($x) l