Commit 849aa553 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(5x5-crack-xor-mutate): Doc fix.

(5x5-draw-grid-end, 5x5-make-xor-with-mutation, 5x5-mode, 5x5-crack,
5x5-play-solution, 5x5-y-or-n-p): Fix typos in docstrings.
parent 1f84b630
...@@ -170,7 +170,7 @@ ...@@ -170,7 +170,7 @@
(put '5x5-mode 'mode-class 'special) (put '5x5-mode 'mode-class 'special)
(defun 5x5-mode () (defun 5x5-mode ()
"A mode for playing `5x5' "A mode for playing `5x5'.
The key bindings for 5x5-mode are: The key bindings for 5x5-mode are:
...@@ -282,7 +282,7 @@ Quit current game \\[5x5-quit-game]" ...@@ -282,7 +282,7 @@ Quit current game \\[5x5-quit-game]"
(loop for y from 0 to (1- 5x5-grid-size) sum (5x5-row-value (aref grid y)))) (loop for y from 0 to (1- 5x5-grid-size) sum (5x5-row-value (aref grid y))))
(defun 5x5-draw-grid-end () (defun 5x5-draw-grid-end ()
"Draw the top/bottom of the grid" "Draw the top/bottom of the grid."
(insert "+") (insert "+")
(loop for x from 0 to (1- 5x5-grid-size) do (loop for x from 0 to (1- 5x5-grid-size) do
(insert "-" (make-string 5x5-x-scale ?-))) (insert "-" (make-string 5x5-x-scale ?-)))
...@@ -347,7 +347,7 @@ Quit current game \\[5x5-quit-game]" ...@@ -347,7 +347,7 @@ Quit current game \\[5x5-quit-game]"
;;;###autoload ;;;###autoload
(defun 5x5-crack-xor-mutate () (defun 5x5-crack-xor-mutate ()
"Attempt to crack 5x5 by xor the current and best solution. "Attempt to crack 5x5 by xoring the current and best solution.
Mutate the result." Mutate the result."
(interactive) (interactive)
(5x5-crack #'5x5-make-xor-with-mutation)) (5x5-crack #'5x5-make-xor-with-mutation))
...@@ -358,7 +358,7 @@ Mutate the result." ...@@ -358,7 +358,7 @@ Mutate the result."
5x5-crack takes the argument BREEDER which should be a function that takes 5x5-crack takes the argument BREEDER which should be a function that takes
two parameters, the first will be a grid vector array that is the current two parameters, the first will be a grid vector array that is the current
solution and the second will be the best solution so far. The function solution and the second will be the best solution so far. The function
should return a grid vector array that is the new solution." should return a grid vector array that is the new solution."
(interactive "aBreeder function: ") (interactive "aBreeder function: ")
...@@ -393,7 +393,7 @@ should return a grid vector array that is the new solution." ...@@ -393,7 +393,7 @@ should return a grid vector array that is the new solution."
(5x5-mutate-solution best)) (5x5-mutate-solution best))
(defun 5x5-make-xor-with-mutation (current best) (defun 5x5-make-xor-with-mutation (current best)
"xor current and best solution then mutate the result." "Xor current and best solution then mutate the result."
(let ((xored (5x5-make-new-grid))) (let ((xored (5x5-make-new-grid)))
(loop for y from 0 to (1- 5x5-grid-size) do (loop for y from 0 to (1- 5x5-grid-size) do
(loop for x from 0 to (1- 5x5-grid-size) do (loop for x from 0 to (1- 5x5-grid-size) do
...@@ -412,8 +412,8 @@ should return a grid vector array that is the new solution." ...@@ -412,8 +412,8 @@ should return a grid vector array that is the new solution."
solution) solution)
(defun 5x5-play-solution (solution best) (defun 5x5-play-solution (solution best)
"Play a solution on an empty grid. This destroys the current game in "Play a solution on an empty grid. This destroys the current game
progress because it is an animated attempt." in progress because it is an animated attempt."
(5x5-new-game) (5x5-new-game)
(let ((inhibit-quit t)) (let ((inhibit-quit t))
(loop for y from 0 to (1- 5x5-grid-size) do (loop for y from 0 to (1- 5x5-grid-size) do
...@@ -514,7 +514,7 @@ progress because it is an animated attempt." ...@@ -514,7 +514,7 @@ progress because it is an animated attempt."
(and (or x y) (not (and x y)))) (and (or x y) (not (and x y))))
(defun 5x5-y-or-n-p (prompt) (defun 5x5-y-or-n-p (prompt)
"5x5 wrapper for y-or-n-p which respects the 5x5-hassle-me setting." "5x5 wrapper for `y-or-n-p' which respects the `5x5-hassle-me' setting."
(if 5x5-hassle-me (if 5x5-hassle-me
(y-or-n-p prompt) (y-or-n-p prompt)
t)) t))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment