(defun cluster-by (f l)
  (loop with r = (make-hash-table)
    for e in l do  (push e (gethash (funcall f e) r))
    finally (return (loop for v being the hash-values of r collect v))))

This paste has no annotations.

Colorize as: NoneBasic LispSchemeEmacs LispCommon LispCC++JavaObjective CErlangPythonHaskellUnified Context DiffWebKit (text or diff) Show Line Numbers