Run Code  | API  | Code Wall  | Misc  | Feedback  | Login  | Theme  | Privacy  | Patreon 

folder

folder :: (a->a->a) -> a -> [a]-> a
folder (#) e [] = e
folder (#) e (x:xs) = x # folder (#) e xs
main = print $ folder (+) 1 [1,4,7,3,67]
 run  | edit  | history  | help 0