Knight's tour: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Tidied.) |
|||
Line 4,116:
knightMoves :: [(Int, Int)]
knightMoves =
((>>=) <*> (\deltas n -> deltas >>= go n))
[1, 2, -1, -2]
where
go i x
| abs i /= abs x = [(i, x)]
|