Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (12 sloc) 378 Bytes
(in-package :academy)
;;; !!! Attention Hackers. Get your fork on to make the
;;;
;;; Hall Of Programmers
(defun list-all-programmers ()
(sort
(count-unique (split-string-into-lines
(git '("log" "--format=format:%an"))))
#'> :key #'second))
(defun hall-of-programmers ()
"Show the Hall of Programmers."
(print-table (list-all-programmers)))