Mercurial > emacs

comparison lisp/play/mpuz.el @ 4345:49e68bc65e26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mpuz.el (mpuz-board): Doc fix.
author Jim Blandy <jimb@redhat.com>
date Thu, 29 Jul 1993 23:21:30 +0000
parents 507f64624555
children a549089c0d15
comparison
equal deleted inserted replaced
4344:be116c77da2f 4345:49e68bc65e26
151 151
152 ;; A puzzle also uses a board displaying a multiplication. 152 ;; A puzzle also uses a board displaying a multiplication.
153 ;; Every digit appears in the board, crypted or not. 153 ;; Every digit appears in the board, crypted or not.
154 ;;------------------------------------------------------ 154 ;;------------------------------------------------------
155 (defvar mpuz-board (make-vector 10 nil) 155 (defvar mpuz-board (make-vector 10 nil)
156 "The board associates ot any digit the list of squares where it appears.") 156 "The board associates to any digit the list of squares where it appears.")
157 157
158 (defun mpuz-put-digit-on-board (number square) 158 (defun mpuz-put-digit-on-board (number square)
159 "Put (last digit of) NUMBER on SQUARE of the puzzle board." 159 "Put (last digit of) NUMBER on SQUARE of the puzzle board."
160 ;; i.e. push SQUARE on NUMBER square-list 160 ;; i.e. push SQUARE on NUMBER square-list
161 (setq number (% number 10)) 161 (setq number (% number 10))