Snake collide

Sign in to test your solution.
type Coordinate = (Int,Int) type Snake = [Coordinate] -- Lookup list operations collides :: [Coordinate] -> Coordinate -> Bool collides l p = undefined