RosettaCodeData/Task/Parametric-polymorphism/Haskell/parametric-polymorphism-3.hs

3 lines
97 B
Haskell

add1Everywhere :: (Functor f, Num a) => f a -> f a
add1Everywhere nums = fmap (\x -> x + 1) nums