hw-succinct-0.0.0.1: src/HaskellWorks/Function.hs

module HaskellWorks.Function
  ( applyN
  ) where

applyN :: (a -> a) -> Int -> a -> a
applyN f n = foldl (.) id (replicate (fromIntegral n) f)