mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2048: fix docstrings

Browse Source
This commit is contained in:
MitchMarq42 2023-01-15 19:59:50 -09:00
parent dcff4255f7
commit 0fbc2fad75
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/2048.el
View File

@ -80,6 +80,9 @@ The cells consist of FILLER and are separated by DELIMITER."
2048--vertical-sep-char (string-to-char " ") 2048--vertical-sep-char (string-to-char " ")
2048--board-size 2048--cell-width)) 2048--board-size 2048--cell-width))
(defun 2048--pad (number) (defun 2048--pad (number)
"Pad NUMBER with spaces, to fit inside the 2048 grid.
TODO: rewrite with calculations based on `2048--cell-width's other than 6."
(cond (cond
((= number 0) " ") ((= number 0) " ")
((< number 10) (format " %i " number)) ((< number 10) (format " %i " number))
@ -283,9 +286,11 @@ the 2048-shift function. Slides and merges for four directions."
) )
(defun 2048-check-total-diff () (defun 2048-check-total-diff ()
"Run 2048-check-diff on the whole board. Return t/nil if board has changed "Run 2048-check-diff on the whole board.
or not. Only relevant after 2048-push-board is called and modifications are
made to the 2048-board array." Return t/nil if board has changed or not. Only relevant after
2048-push-board is called and modifications are made to the
2048-board array."
(catch 'breaker (catch 'breaker
(dotimes (j 2048--board-size) (dotimes (j 2048--board-size)
(dotimes (i 2048--board-size) (dotimes (i 2048--board-size)