Knight's tour: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Slight disaggregation, pruned out some surplus magic from a list.) |
|||
Line 3,230:
knightMoves :: [(Int, Int)]
knightMoves =
let deltas =
in deltas >>=
(\i -> deltas >>= (bool [] . return . (i, )) <*> ((abs i /=) . abs))
|