W2L1(Lecture3)-FP24-Vlad-Batch2Q4-WL

import Prelude hiding (map, iterate)

map :: (a -> b) -> [a] -> [b]
map f xs = unfold null (f . head) (tail) xs

iterate :: (a -> a) -> a -> [a]
iterate f x = unfold (\x -> False) id f x