lambda 还有不明白之处

amwkto2011

wzg356 发表于 2014-12-16 17:43
别叫我大师用defun为4楼的表达式取一个函数名就行了

;;;单层表lst的元素按指定分隔符rr连接呈一个字符 ...

{:soso_e179:}

守仁格竹GM

楼主代码还可简化为：(substr (apply 'strcat (mapcar '(lambda (x)(strcat "," (rtos x))) tt))2)
用repeat方法
(repeat (length tt)
  (setq lst (append (list "," (rtos (car tt))) lst)
        tt (cdr tt)
  )
)
(apply 'strcat (reverse(cdr lst)))

amwkto2011

守仁格竹GM 发表于 2014-12-17 14:15
楼主代码还可简化为：(substr (apply 'strcat (mapcar '(lambda (x)(strcat "," (rtos x))) tt))2)
用repe ...

{:soso_e179:}