diff options
| -rw-r--r-- | chessboard.mu | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/chessboard.mu b/chessboard.mu index 5ed8ddc9..71e3da92 100644 --- a/chessboard.mu +++ b/chessboard.mu @@ -1,3 +1,12 @@ +;; data structure: board +(primitive square) +(address square-address (square)) ; pointer. verbose but sadly necessary for now +(array file (square)) ; ranks and files are arrays of squares +(address file-address (file)) +(address file-address-address (file-address)) ; pointer to a pointer +(array board (file-address)) +(address board-address (board)) + (function read-board [ (default-scope:scope-address <- new scope:literal 30:literal) (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal |