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