Skip to content

Instantly share code, notes, and snippets.

@asandroq

asandroq/gist:226135

Created November 4, 2009 15:38
Show Gist options
  • Save asandroq/226135 to your computer and use it in GitHub Desktop.
Save asandroq/226135 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.sls
(define (legal? move player board)
(and (eqv? (board-ref board move) *empty*)
(any? (lambda (dir)
(would-flip move player board dir))
*all-directions*)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment