exercism

commit a2bca632e8016eceed2029d3c874475e7e7f32ef
parent 0e32c4b5aa90374ceade01fd1f139d9a55d341e5
Author: dwrz <dwrz@dwrz.net>
Date:   Sun, 20 Jan 2019 19:38:17 +0000

Refactor elisp/anagram/equal-char-count

Diffstat:
M
elisp/anagram/anagram.el
 | 
10
++++++----

1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/elisp/anagram/anagram.el b/elisp/anagram/anagram.el
@@ -17,14 +17,16 @@
                   (1+ (cdr (assoc char char-count))))
         (setq char-count (cons (cons char 1) char-count))))))
 
-(defun compare-char-counts(char-counts comparison-char-counts)
+(defun equal-char-count(char-count comparison-char-count)
+  "Return t if the submitted character counts are equal, false otherwise.
+CHAR-COUNT and COMPARISON-CHAR-COUNT should be alists in (character . count) format."
   (let ((are-equal t))
-    (dolist (char-count char-counts are-equal)
+    (dolist (char-count char-count are-equal)
       (if (not are-equal) nil)
-      (if (assoc (car char-count) comparison-char-counts)
+      (if (assoc (car char-count) comparison-char-count)
           (if (not (equal
                     (cdr char-count)
-                    (cdr (assoc (car char-count) comparison-char-counts))))
+                    (cdr (assoc (car char-count) comparison-char-count))))
               (setq are-equal nil))
         (setq are-equal nil)))))