From d99607231dd767df599478bb0bbc68d0a3483d1a Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 2 Jan 2015 15:44:51 -0800 Subject: 496 --- chessboard.mu | 9 +++++++++ 1 file changed, 9 insertions(+) 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 -- cgit 1.4.1-2-gfad0