Haskell: Function to determine the arity of functions?

Question

Is it possible to write a function arity :: a -> Integer to determine the arity of arbitrary functions, such that

> arity map
2
> arity fol         


        

Answer 1

How about this:

arity :: a -> Int
arity (b->c) = 1 + arity (c)
arity _ = 0