Skip to content

Instantly share code, notes, and snippets.

@relrod

relrod/fen.hs

Created December 18, 2015 00:33
Show Gist options
  • Save relrod/de422080a7fb82a80423 to your computer and use it in GitHub Desktop.
Save relrod/de422080a7fb82a80423 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fen.hs
λ> let Right x = parseOnly parseRanks "rnbqkbnr/pppppppp/8/8/8/8/PPPPPPPP/RNBQKBNR"
x :: [Cell]
λ> putStrLn $ prettyPrintBoard x ""
♜ ♞ ♝ ♛ ♚ ♝ ♞ ♜
♟ ♟ ♟ ♟ ♟ ♟ ♟ ♟
♙ ♙ ♙ ♙ ♙ ♙ ♙ ♙
♖ ♘ ♗ ♕ ♔ ♗ ♘ ♖
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment