Warning! It seems that you are using Dodona within another webpage, so not everything may work properly. Let your teacher know so that he can solve the problem by adjusting a setting in the learning environment. In the meantime, you can click this link to open Dodona in a new window.
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.