Common Lisp 反向字符串

在 Common Lisp 中，可以使用 reverse 函数来反转一个字符串。具体实现方法如下：

(defun reverse-string (str)
  (coerce (reverse (coerce str 'list)) 'string))

reverse-string 函数接收一个字符串 str，把它转换成列表，使用 reverse 函数反转列表，最后再把列表转换回字符串，就得到了反向的字符串。

示例代码如下：

(defun test-reverse-string ()
  (let ((str "hello world"))
    (assert (string= (reverse-string str) "dlrow olleh"))))

(test-reverse-string)

运行结果如下：

T

这表明测试通过，反向字符串的实现是正确的。

总结

本文介绍了在 Common Lisp 中如何反向一个字符串。这里使用了 reverse 函数和 coerce 函数。希望对你有所帮助。