loop su caratteri in stringa, Common Lisp

Question

Come eseguire il loop sui caratteri in una stringa di testo in Common-lisp?

Ecco quello che voglio fare, ma in Ruby:

string = "bacon" 

string.each_char do |c| 

    putc c 

end 

Answer 1

(map nil #'princ "bacon") 

o

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

Answer 2

Looping su una stringa può essere fatto utilizzando loop in questo modo:

(let ((string "bacon")) 

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

;=> bacon 
;=> NIL 

di raccogliere i personaggi in string come lista uso collect nel ciclo, invece di do in questo modo:

(let ((string "bacon")) 

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

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