AZ
Alexander Krivitskiy
nmap :: (a -> a) -> [a] -> [a]
nmap _ [] = []
nmap f (x:xs) = x : nmap' f xs
where
nmap' _ [] = []
nmap' f (x:xs) = f x : nmap' (f . f) xs
nmap _ [] = []
nmap f (x:xs) = x : nmap' f xs
where
nmap' _ [] = []
nmap' f (x:xs) = f x : nmap' (f . f) xs
трудно понять что ты тут хочешь
