simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-28 12:54:07 +03:00
Code Issues Projects Releases Wiki Activity

lib: applyN comment

Browse Source
This commit is contained in:
Simon Michael 2016-12-29 11:23:22 -08:00
parent f84324682e
commit 264e81c430
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hledger-lib/Hledger/Utils.hs
View File

@ -125,6 +125,9 @@ isRight = not . isLeft
-- | Apply a function the specified number of times. Possibly uses O(n) stack ? -- | Apply a function the specified number of times. Possibly uses O(n) stack ?
applyN :: Int -> (a -> a) -> a -> a applyN :: Int -> (a -> a) -> a -> a
applyN n f = (!! n) . iterate f applyN n f = (!! n) . iterate f
-- from protolude, compare
-- applyN :: Int -> (a -> a) -> a -> a
-- applyN n f = X.foldr (.) identity (X.replicate n f)
-- | Convert a possibly relative, possibly tilde-containing file path to an absolute one, -- | Convert a possibly relative, possibly tilde-containing file path to an absolute one,
-- given the current directory. ~username is not supported. Leave "-" unchanged. -- given the current directory. ~username is not supported. Leave "-" unchanged.