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
You can submit as many times as you like. Only your latest submission will be taken into account.
Sign in to test your solution.