Snake move
Sign in to test your solution.
type Coordinate = (Int,Int)
type Direction = (Int,Int)
type Snake = [Coordinate]
extend :: Snake -> Direction -> Snake
extend old@((x,y):rest) (dx,dy) = (x+dx,y+dy):old
move :: Snake -> Direction -> Snake
move s r = 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.