|Arc Cross Reference|
[procedure] commonest seq
Returns a list of the most common element in seq and its count.
(def commonest (seq) (with (winner nil n 0) (ontable k v (counts seq) (when (> v n) (= winner k n v))) (list winner n)))
arc> (commonest '(a b d j d s b a d c)) (d 3)