AZ
Size: a a a
AZ
AZ
RP
RP
RP
EG
r
nmap f = zipWith ($) $ iterate ((.) f) id
AZ
nmap f = zipWith ($) $ iterate ((.) f) id
AK
nmap f xs = nmapImpl f xs where
nmapImpl _ [] = []
nmapImpl g (x:xs) = g x : nmapImpl (f . g) xs
AZ
r
AZ
AZ
nmap f xs = nmapImpl f xs where
nmapImpl _ [] = []
nmapImpl g (x:xs) = g x : nmapImpl (f . g) xs
RP
EG
AK
AK
RP
AK
AZ
iterate ((.) f) id