Contents

(in-package #:cl-user)
(defpackage #:acronym
  (:use #:cl)
  (:export #:acronym))

(in-package #:acronym)

(defun acronym (str)
  (labels ((recur (st ls)
    (cond
      ((equal "" st)
        ls)
      ((both-case-p (elt st 0))
       (recur (string-left-trim
              "abcdefghijklmnopqrstuvwxyz"
              (string-left-trim
                "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
                st))
             (cons (elt st 0)
                   ls)))
      (t (recur (subseq st 1) ls)))))
    (map 'string
         #'char-upcase
         (nreverse (recur str nil)))))

Version data entries

127 entries across 127 versions & 1 rubygems

Version	Path
trackler-2.2.1.78	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.77	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.76	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.75	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.74	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.73	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.72	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.71	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.70	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.69	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.68	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.67	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.66	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.65	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.64	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.63	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.62	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.61	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.60	tracks/common-lisp/exercises/acronym/example.lisp
trackler-2.2.1.59	tracks/common-lisp/exercises/acronym/example.lisp