3 lines
66 B
Haskell
3 lines
66 B
Haskell
|
extendWith f [] = []
|
||
|
|
extendWith f xs@(x:ys) = x : zapWith f xs ys
|