info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
vector to string conversion
7 views
Skip to first unread message
Robert L.
Sep 19, 2017, 4:43:40 PM9/19/17
to
Rainer Joswig wrote:
> (defun concatenate-vector-of-strings (vector)
> (loop with new-string = (make-string (reduce '+ vector :key 'length))
> for start = 0 then (+ start (length string))
> and string across vector
> do (setf (subseq new-string start) string)
> finally (return new-string)))
(string-join (vector->list (vector "abc" "de" "fg")) "")
===>
"abcdefg"
--
Black Panther Quanell X ... blamed the 11-year-old girl for being raped by 28
black males. http://archive.org/details/DavidDuke_videos/ (Trayvon Martin)
What I would most desire would be the separation of the white and black
races. --- A. Lincoln, July 17, 1858
> (defun concatenate-vector-of-strings (vector)
> (loop with new-string = (make-string (reduce '+ vector :key 'length))
> for start = 0 then (+ start (length string))
> and string across vector
> do (setf (subseq new-string start) string)
> finally (return new-string)))
(string-join (vector->list (vector "abc" "de" "fg")) "")
===>
"abcdefg"
--
Black Panther Quanell X ... blamed the 11-year-old girl for being raped by 28
black males. http://archive.org/details/DavidDuke_videos/ (Trayvon Martin)
What I would most desire would be the separation of the white and black
races. --- A. Lincoln, July 17, 1858
0 new messages