Mercurial > emacs

comparison lisp/play/mpuz.el @ 791:203c23c9f22c

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 Thu, 16 Jul 1992 04:23:17 +0000
parents 505130d1ddf8
children c8798ebd7d95
comparison
equal deleted inserted replaced
790:47ec7c4c42bc 791:203c23c9f22c
1 ;;; mpuz.el --- multiplication puzzle for GNU Emacs 1 ;;; mpuz.el --- multiplication puzzle for GNU Emacs
2 2
3 ;;; by Philippe Schnoebelen <phs@lifia.imag.fr> 3 ;; Author: Philippe Schnoebelen <phs@lifia.imag.fr>
4 ;;; Last modified on 11 Nov 1990 4 ;; Last-Modified: 11 Nov 1990
5 ;; Keywords: games
6
5 ;;; Copyright (C) 1990 Free Software Foundation, Inc. 7 ;;; Copyright (C) 1990 Free Software Foundation, Inc.
6 8
7 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
8 10
9 ;; GNU Emacs is distributed in the hope that it will be useful, 11 ;; GNU Emacs is distributed in the hope that it will be useful,
18 ;; GNU Emacs General Public License. A copy of this license is 20 ;; GNU Emacs General Public License. A copy of this license is
19 ;; supposed to have been given to you along with GNU Emacs so you 21 ;; supposed to have been given to you along with GNU Emacs so you
20 ;; can know your rights and responsibilities. It should be in a 22 ;; can know your rights and responsibilities. It should be in a
21 ;; file named COPYING. Among other things, the copyright notice 23 ;; file named COPYING. Among other things, the copyright notice
22 ;; and this notice must be preserved on all copies. 24 ;; and this notice must be preserved on all copies.
25
26 ;;; Code:
23 27
24 (random t) ; randomize 28 (random t) ; randomize
25 29
26 (defun mpuz-random (n) 30 (defun mpuz-random (n)
27 "Return a random integer between 0 and N - 1 inclusive." 31 "Return a random integer between 0 and N - 1 inclusive."