;;; acronym.el --- Acronym (exercism)

;;; Commentary:

;;; Code:

(require 'cl-lib)

(defun kj/abbrev-word (w)
  (upcase (substring w 0 1)))

(defun acronym (str)
  (mapconcat 'kj/abbrev-word (split-string str "\\W+" t) ""))

(provide 'acronym)
;;; acronym.el ends here