SHOW:
|
|
- or go back to the newest paste.
| 1 | A2)a) | |
| 2 | ||
| 3 | mapList :: (Int -> Int) -> List -> List | |
| 4 | mapList _ [] = [] | |
| 5 | mapList f (x:xs) = f x : maplist f xs | |
| 6 | ||
| 7 | b) | |
| 8 | negateList :: List -> List | |
| 9 | - | neagteList xs = mapList (\x -> -x) xs |
| 9 | + | neagteList xs = mapList (\x -> -x) x:xs |
