arialdo, 4 months ago f = foldr (flip (const . (+1))) 0 #haskell
f = foldr (flip (const . (+1))) 0
#haskell