[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Lisp Live buffer
From: |
Emanuel Berg |
Subject: |
Re: Lisp Live buffer |
Date: |
Thu, 29 Dec 2022 00:20:40 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
And here is a little non-interactive demo ...
Now the live buffer is the next step, the "view" part.
Ideas?
;;; -*- 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*((side 3)
(blank "_")
(brd (ttt-board side blank))
(players '#1=("x" "o" . #1#) ))
(defun ttt-set (x y)
(interactive "nx: \nny: ")
(let ((pos (list x y)))
(when (string= blank (world-get brd pos))
(world-set brd pos (pop players)) )))
(declare-function ttt-set nil)
(defun ttt-test-game ()
(ttt-set 1 1)
(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)
;; ( ("o" "x" "o")
;; ("o" "x" "x")
;; ("x" "o" "x") )
--
underground experts united
https://dataswamp.org/~incal
- Lisp Live buffer, Emanuel Berg, 2022/12/06
- Re: Lisp Live buffer, Jean Louis, 2022/12/06
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/07
- Re: Lisp Live buffer, Jean Louis, 2022/12/23
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/26
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/26
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/27
- Re: Lisp Live buffer, tomas, 2022/12/28
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/29
- Re: Lisp Live buffer,
Emanuel Berg <=
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/29
- Re: Lisp Live buffer, Emanuel Berg, 2022/12/29
Re: Lisp Live buffer, Madhu, 2022/12/08