;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-blank/mvc/model-ttt.el

(require 'model)

(defun ttt-board (&optional side blank)
  (or side (setq side 3))
  (or blank (setq blank "_"))
  (make-world 2 side blank) )

(let*((brd     (ttt-board))
      (blank   (world-get brd '(0 0)))
      (players '#1=("x" "o" . #1#) ))

  (defun ttt-set (x y)
    (interactive "nx: \nny: ")
    (let ((pos (list x y)))
      (if (ttt-blankp x y)
          (world-set brd pos (pop players))
        (message "Illegal move") )))

  (defun ttt-blankp (x y)
    (string= blank (ttt-get x y)) )

  (defun ttt-get (x y)
    (interactive "nx: \nny: ")
    (let ((pos (list x y)))
      (world-get brd pos) ))

  (declare-function ttt-set    nil)
  (declare-function ttt-blankp nil)
  (declare-function ttt-get    nil)

  (defun ttt-test-game ()
    (ttt-set 1 1)
    (ttt-set 1 1) ; illegal
    (ttt-set 0 0)
    (ttt-set 2 0)
    (ttt-set 0 2)
    (ttt-set 0 1)
    (ttt-set 2 1)
    (ttt-set 1 2)
    (ttt-set 1 0)
    (ttt-set 2 2)
    brd)

  (declare-function ttt-test-game nil) )

;; (ttt-test-game)
;;     0   1   2
;; ( ("o" "x" "o")   0
;;   ("o" "x" "x")   1
;;   ("x" "o" "x") ) 2

(provide 'model-ttt)