Pętla nad znakami w łańcuchu, Common Lisp

Question

W jaki sposób pętlę nad znakami w ciągu tekstu w Common-sepl?

Oto, co chcę zrobić, ale w Ruby:

string = "bacon" 

string.each_char do |c| 

    putc c 

end 

Answer 1

(map nil #'princ "bacon") 

lub

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

Answer 2

zapętlenie nad ciągiem można zrobić za pomocą loop tak:

(let ((string "bacon")) 

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

;=> bacon 
;=> NIL 

zebrać znaki w string jako listę użyj collect w pętli zamiast do tak jak:

(let ((string "bacon")) 

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

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