RosettaCodeData/Task/Parametric-polymorphism/Clean/parametric-polymorphism-3.c...

3 lines
98 B
Plaintext

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