2019-10-01から1ヶ月間の記事一覧
(defun Othello () (setq table nil) (setq sq 8) (setq r nil) (defun initable () (defun initableat () (cond ((not table) (setq table '((0 0)))) ((= (caar table) (1- sq)) (setq table (push `(0 ,(1+ (cadr (car table)))) table))) (t (setq table…
Snを定義する。 Tnを定義する。 よって