September Morn Update

Task/Averages-Mode/Clojure/averages-mode-2.clj

@@ -1,13 +1,2 @@
-mode = (arr) ->
-  # returns an array with the modes of arr, i.e. the
-  # elements that appear most often in arr
-  counts = {}
-  for elem in arr
-    counts[elem] ||= 0
-    counts[elem] += 1
-  max = 0
-  for key, cnt of counts
-    max = cnt if cnt > max
-  (key for key, cnt of counts when cnt == max)
-
-console.log mode [1, 2, 2, 2, 3, 3, 3, 4, 4]
+(defn modes [coll]
+  (->> coll frequencies (sort-by val >) (partition-by val) first (map key)))

Task/Averages-Mode/Clojure/averages-mode-3.clj

@@ -1,15 +1,13 @@
-(defun mode (sequence &rest hash-table-options)
-  (let ((frequencies (apply #'make-hash-table hash-table-options)))
-    (map nil (lambda (element)
-               (incf (gethash element frequencies 0)))
-         sequence)
-    (let ((modes '())
-          (hifreq 0 ))
-      (maphash (lambda (element frequency)
-                 (cond ((> frequency hifreq)
-                        (setf hifreq frequency
-                              modes  (list element)))
-                       ((= frequency hifreq)
-                        (push element modes))))
-               frequencies)
-      (values modes hifreq))))
+mode = (arr) ->
+  # returns an array with the modes of arr, i.e. the
+  # elements that appear most often in arr
+  counts = {}
+  for elem in arr
+    counts[elem] ||= 0
+    counts[elem] += 1
+  max = 0
+  for key, cnt of counts
+    max = cnt if cnt > max
+  (key for key, cnt of counts when cnt == max)
+
+console.log mode [1, 2, 2, 2, 3, 3, 3, 4, 4]

Task/Averages-Mode/Clojure/averages-mode-4.clj

@@ -0,0 +1,15 @@
+(defun mode (sequence &rest hash-table-options)
+  (let ((frequencies (apply #'make-hash-table hash-table-options)))
+    (map nil (lambda (element)
+               (incf (gethash element frequencies 0)))
+         sequence)
+    (let ((modes '())
+          (hifreq 0 ))
+      (maphash (lambda (element frequency)
+                 (cond ((> frequency hifreq)
+                        (setf hifreq frequency
+                              modes  (list element)))
+                       ((= frequency hifreq)
+                        (push element modes))))
+               frequencies)
+      (values modes hifreq))))