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) x:xs |
| 9 | + | neagteList xs = mapList (\x -> -x) x:xs |
| 10 | ||
| 11 | c) | |
| 12 | foldList :: (Int -> a -> a) -> a -> List -> a | |
| 13 | foldList f c Nil = c | |
| 14 | foldList f c Cons( a n) = f a (foldList f c n) |
