lặp qua các ký tự trong chuỗi, Common Lisp

Question

Làm cách nào để lặp lại các ký tự trong một chuỗi văn bản trong Common-lisp?

Dưới đây là những gì tôi muốn làm, nhưng trong Ruby:

string = "bacon" 

string.each_char do |c| 

    putc c 

end 

Answer 1

(map nil #'princ "bacon") 

hoặc

(loop for c across "bacon" do (princ c)) 

Answer 2

Looping qua một chuỗi có thể được thực hiện bằng loop như vậy:

(let ((string "bacon")) 

    (loop for idex from 0 to (- (length string)) 1) 
     do 
     (princ (string (aref string idex))))) 

;=> bacon 
;=> NIL 

Để nhặt những nhân vật trong string như một danh sách sử dụng collect trong vòng lặp thay vì do như sau:

(let ((string "bacon")) 

    (loop for idex from 0 to (- (length string)) 1) 
     collect 
     (princ (string (aref string idex))))) 

;=> bacon 
;=> ("b" "a" "c" "o" "n")