yFold :: (a -> Bool) -> [a] -> Bool
myAnyFold f = foldr (\x y -> f x || y) False

--
myAnyFold :: (a -> Bool) -> [a] -> Bool
myAnyFold f = foldr (\x y -> f x || y) False
myAnyFold f = foldr (\x y -> f x || y) False