Snake extend

Sign in to test your solution.
type Coordinate = (Int,Int) type Direction = (Int,Int) type Snake = [Coordinate] -- Make use of pattern matching extend :: Snake -> Direction -> Snake extend = undefined