在 Common Lisp 中交替大写/小写字符串

Question

我想编写一个函数，该函数将返回一个在 Common Lisp 中使用可选大写/小写格式的字符串。例如，输入“stackoverflow”应返回字符串“StAcKoVeRfLoW”。这是我的尝试，但它只返回一个缺点对列表。我在正确的轨道上吗？

(defun mockify (chars)
  (let ((lst (coerce chars 'list)))
    (if (equal lst nil) nil
        (coerce (cons
                 (cons (char-upcase (car lst)) (char-downcase (cadr lst)))
                      (mockify (cddr lst)))
                'string))))

CL-USER> (mockify "meow")
((#\M . #\e) (#\O . #\w))

Answer 1

使用MAP：我们正在创建一个新字符串，根据交替的布尔变量移动原始字符串和大写/小写。

CL-USER 353 > (let ((string "stackoverflow")
                    (upcase t))
                (map (type-of string)
                     (lambda (element)
                       (prog1 (if upcase
                                  (char-upcase element)
                                (char-downcase element))
                         (setf upcase (not upcase))))
                     string))
"StAcKoVeRfLoW"