hall-of-programmers

For a little competitive spirit.

academy.asd

@@ -26,5 +26,6 @@
                #+sbcl (:file "git")
                #+sbcl (:file "log")
                #+sbcl (:file "website")
+               #+sbcl (:file "hall-of-programmers")
                (:file "welcome")))
 

hall-of-programmers.lisp

@@ -0,0 +1,15 @@
+(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)))

packages.lisp

@@ -19,4 +19,5 @@
            multiplication-table
            peace
            turtle-race
-           save-log))
+           save-log
+           hall-of-programmers))