You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 lines
152 B
7 lines
152 B
module TestTree where
|
|
|
|
|
|
applyNtimes :: Int -> (a -> a) -> a -> a
|
|
applyNtimes 0 _ accum = accum
|
|
applyNtimes n f accum = applyNtimes (n - 1) f (f accum)
|
|
|