[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mines 0fb75df 16/43: * mines.el (mines-set-numbers): Us
From: |
Stefan Monnier |
Subject: |
[elpa] externals/mines 0fb75df 16/43: * mines.el (mines-set-numbers): Use mines-matrix-2-index |
Date: |
Mon, 30 Nov 2020 18:44:15 -0500 (EST) |
branch: externals/mines
commit 0fb75df6903a5f6535dce17575eba53588140eb5
Author: Tino Calancha <tino.calancha@gmail.com>
Commit: Tino Calancha <tino.calancha@gmail.com>
* mines.el (mines-set-numbers): Use mines-matrix-2-index
---
mines.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/mines.el b/mines.el
index 0039ed4..dc9f702 100644
--- a/mines.el
+++ b/mines.el
@@ -282,35 +282,35 @@ If `custom' then ask user for these numbers."
(let ((tmp-grid (copy-sequence mines-grid)))
(dotimes (i mines-number-rows)
(dotimes (j mines-number-cols)
- (let ((idx (+ (* i mines-number-cols) j))
+ (let ((idx (mines-matrix-2-index i j))
(numb 0))
(unless (aref mines-grid idx)
;; Horizontal neighbours.
(when (> j 0)
- (let ((tmp-idx (+ (* i mines-number-cols) (1- j))))
+ (let ((tmp-idx (mines-matrix-2-index i (1- j))))
(and (aref mines-grid tmp-idx) (cl-incf numb))))
(when (< j (1- mines-number-cols))
- (let ((tmp-idx (+ (* i mines-number-cols) (1+ j))))
+ (let ((tmp-idx (mines-matrix-2-index i (1+ j))))
(and (aref mines-grid tmp-idx) (cl-incf numb))))
;; Previous row neighbours.
(when (> i 0)
- (let ((tmp-idx (+ (* (1- i) mines-number-cols) j)))
+ (let ((tmp-idx (mines-matrix-2-index (1- i) j)))
(and (aref mines-grid tmp-idx) (cl-incf numb)))
(when (> j 0)
- (let ((tmp-idx (+ (* (1- i) mines-number-cols) (1- j))))
+ (let ((tmp-idx (mines-matrix-2-index (1- i) (1- j))))
(and (aref mines-grid tmp-idx) (cl-incf numb))))
(when (< j (1- mines-number-cols))
- (let ((tmp-idx (+ (* (1- i) mines-number-cols) (1+ j))))
+ (let ((tmp-idx (mines-matrix-2-index (1- i) (1+ j))))
(and (aref mines-grid tmp-idx) (cl-incf numb)))))
;; Next row neighbours.
(when (< i (1- mines-number-rows))
- (let ((tmp-idx (+ (* (1+ i) mines-number-cols) j)))
+ (let ((tmp-idx (mines-matrix-2-index (1+ i) j)))
(and (aref mines-grid tmp-idx) (cl-incf numb)))
(when (> j 0)
- (let ((tmp-idx (+ (* (1+ i) mines-number-cols) (1- j))))
+ (let ((tmp-idx (mines-matrix-2-index (1+ i) (1- j))))
(and (aref mines-grid tmp-idx) (cl-incf numb))))
(when (< j (1- mines-number-cols))
- (let ((tmp-idx (+ (* (1+ i) mines-number-cols) (1+ j))))
+ (let ((tmp-idx (mines-matrix-2-index (1+ i) (1+ j))))
(and (aref mines-grid tmp-idx) (cl-incf numb)))))
;; Update `mines-grid'.
(unless (zerop numb)
- [elpa] branch externals/mines created (now 97e0a05), Stefan Monnier, 2020/11/30
- [elpa] externals/mines c52a0bd 01/43: Initial commit, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 3fdc08a 03/43: * mines.el (mines-game-over): Set face correctly, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 4da0c1d 04/43: * screenshots/screenshot-minesweeper.png: Add screenshot, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 92fb132 05/43: * Readme: Add screenshot, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 735b30d 02/43: First commit, Stefan Monnier, 2020/11/30
- [elpa] externals/mines d9241c9 08/43: Add file, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 4adcc96 10/43: * mines.el (mines-difficulty-level): Fix docstring, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 9a1a1a4 13/43: * README.md: Update file, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 0fb75df 16/43: * mines.el (mines-set-numbers): Use mines-matrix-2-index,
Stefan Monnier <=
- [elpa] externals/mines b419959 18/43: * mines.el (mines-init): Preserve board settings after restart game, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 4d800e0 09/43: * mines.el (mines--insert): Display flags with a different face, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 4bbe9a4 14/43: * mines.el (mines-dig): Fix update of board when touch a bomb at first trial, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 5ee08ac 15/43: * mines.el (mines-mode): Initialize mode map in the body, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 7247335 20/43: * mines.el: Assign copyright to FSF, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 1cf5d85 23/43: * .travis.yml: Dont test for Emacs-24.3, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 8eaf131 27/43: * mines.el: Bump version to 1.1, Stefan Monnier, 2020/11/30
- [elpa] externals/mines b490060 39/43: * packages/mines/mines.el: Streamline mines--insert, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 82f1a92 17/43: Refactor code, Stefan Monnier, 2020/11/30
- [elpa] externals/mines 5ada7d3 06/43: * Readme: Add more screenshots, Stefan Monnier, 2020/11/30