PROSAGA码农传奇-lisp-lisp中的字符串添加分配

<div class =“post-text”itemprop =“text”>
  
    字符串连接依赖于更一般的
    <a href="http://clhs.lisp.se/Body/f_concat.htm" rel="nofollow noreferrer">
       <code>
 CONCATENATE
 </code>
    </A>
     功能：
  
   <pre>
 <code>
 (concatenate 'string "a" "b")
=> "ab"

</code>
 </pre>
  
    由于它被一些人认为是冗长的，你可以找到实现更短版本的库：
  
   <pre>
 <code>
 (ql:quickload :rutils)
(import 'rutils:strcat)

</code>
 </pre>
  
    然后：
  
   <pre>
 <code>
 (strcat "a" "b")

</code>
 </pre>
  
    要分配和增长字符串，您需要使用
     <code>
 SETF
 </code>
     使用现有变量。
  
   <pre>
 <code>
 (let ((string ""))
 (dotimes (i 5)
 (when (evenp i)
 (setf string (strcat string (princ-to-string i)))))
 string)

</code>
 </pre>
  
    Lisp中更惯用的方法是避免字符串连接，但是在写入缓冲区的流中打印。
  
   <pre>
 <code>
 (with-output-to-string (stream)
 ;; now, stream is bound to an output stream 
 ;; that writes into a string. The whole form 
 ;; returns that string.
 (loop
 for i from 0 below 5 by 2
 do (princ i stream)))
 => "024"

</code>
 </pre>
  
    在上面，
     <code>
 stream
 </code>
     只是用于命名流的符号，您可以使用任何其他符号，包括
     <code>
 *standard-output*
 </code>
    ，表示当前输出流的特殊变量。这样做会使封闭的代码将其标准输出重定向到字符串流。
  
  
    构建中间列表的另一种方法是：
     <code>
 iota
 </code>
     是一个小实用程序
    <a href="https://gitlab.common-lisp.net/alexandria/alexandria" rel="nofollow noreferrer">
      亚历山大
    </A>
     图书馆：
  
   <pre>
 <code>
 (delete-if #'oddp (alexandria:iota 5))
=> (0 2 4)

</code>
 </pre>
  
    为了产生一个字符串，你也可以使用
    <a href="http://www.lispworks.com/documentation/lw50/CLHS/Body/f_format.htm" rel="nofollow noreferrer">
       <code>
 FORMAT
 </code>
    </A>
    ，它有一个可以迭代列表的指令：
  
   <pre>
 <code>
 (format nil "~{~a~}" '(0 2 4))
=> "024"

</code>
 </pre>
  
    该
     <code>
 nil
 </code>
     stream destination表示字符串目标，意思是
     <code>
 (format nil ...)
 </code>
     返回一个字符串。每个指令都以波形符开头（
     <code>
 ~
 </code>
    ）
     <code>
 ~{
 </code>
     和
     <code>
 ~}
 </code>
     包含迭代指令;在那个街区里面，
     <code>
 ~a
 </code>
     打印“美学上”的值（不可读）。
  
</DIV>