Mercurial > emacs

comparison lisp/play/mpuz.el @ 659:505130d1ddf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 22:12:04 +0000
parents c0bd9c7f9c42
children 203c23c9f22c
comparison
equal deleted inserted replaced
658:7cbd4fcd8b0f 659:505130d1ddf8
1 ;;; Multiplication puzzle for GNU Emacs 1 ;;; mpuz.el --- multiplication puzzle for GNU Emacs
2
2 ;;; by Philippe Schnoebelen <phs@lifia.imag.fr> 3 ;;; by Philippe Schnoebelen <phs@lifia.imag.fr>
3 ;;; Last modified on 11 Nov 1990 4 ;;; Last modified on 11 Nov 1990
4 ;;; Copyright (C) 1990 Free Software Foundation, Inc. 5 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
5 6
6 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
442 (while (> 10 (setq digit (1+ digit))) 443 (while (> 10 (setq digit (1+ digit)))
443 (or (mpuz-digit-solved-p digit) 444 (or (mpuz-digit-solved-p digit)
444 (setq list (cons digit list)))) 445 (setq list (cons digit list))))
445 (mapcar 'mpuz-correct-guess list))) 446 (mapcar 'mpuz-correct-guess list)))
446 447
447 ;;; End of mult-puzzle 448 ;;; mpuz.el ends here
448