diff --git a/cube-scrambler.el b/cube-scrambler.el index 1227d22..c67267b 100644 --- a/cube-scrambler.el +++ b/cube-scrambler.el @@ -26,14 +26,14 @@ (defvar cube-faces "UDLRFB") (defun cube-scramble (moves) - "Generates a list of random scramnles for a 3x3 Rubik's cube and displays it. + "Generate a list of random moves for a 3x3 Rubik's cube and display it MOVES represents the number of moves in the list." (interactive "p") (message (mapconcat 'identity (cube-build-scramble moves) " "))) (defun cube-build-scramble (moves) - "Generates a list of random moves for a 3x3 Rubik's cube + "Generate a list of random moves for a 3x3 Rubik's cube MOVES os the number of moves to generate. The algorithm will not generate a sequence that moves the same face twice in a row." @@ -45,14 +45,14 @@ generate a sequence that moves the same face twice in a row." result)) (defun cube-random-face (&optional last-face) - "Generates a random cube face + "Generate a random cube face If supplied, LAST-FACE will be excluded as a possibility." (let ((faces (cube-filter cube-faces last-face))) (elt faces (random (length faces))))) (defun cube-random-turn (face) - "Generates a random turn directio for a given face + "Generate a random turn direction for a given face FACE is a character representing the face to be turned." (let ((suffix (pcase (random 3) @@ -61,8 +61,8 @@ FACE is a character representing the face to be turned." (2 "2")))) (format "%c%s" face suffix))) -(defun cube-filter (str char) - "Filters all instances of a character from a string" - (seq-filter (lambda (c) (not (equal c char))) str)) +(defun cube-filter (sequence value) + "Filter all instances of a value from a sequence" + (seq-filter (lambda (c) (not (equal c value))) sequence)) ;;; cube-scrambler.el ends here