(defun mkreverse (string)
(unless (string= "" string)
(let ((tmp (char string 0)))
(mkreverse (subseq string 1))
(format t (string tmp)))))
I'm quite sure there are better ways to print out strings in reverse (considering there's even a built in REVERSE function in Common Lisp) but it's a start.
No comments:
Post a Comment