Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- addCoord :: BoardSpec -> BoardSpec -> BoardSpec -> BoardSpec
- addCoord as [] gs = gs
- addCoord as (((d, e), f) : ds) gs = if (isNeighbour (d, e) as) then addCoord as ds (gs ++ [((d, e), f)]) else addCoord as ds gs
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement