请帮忙

rolopes · 发表于 2022-7-5 17:44:37

大家好
我有这样一个列表：
（（SPT01 0.11 1.15）（1/35 3/33 4/31 1 18 7/31）（（SPT02 0.15 1.1）（1/34 3/30 4/31 2 14 7/22）（（SPT03 0.25 2.44）（1/54 3/74 4/34 1 20 7/744）））

我需要一个函数来返回：
（（（“SPT01”“0.11”“1.15”）（“1/35”“3/33”“4/31”“1”“18”“7/31”）（（“SPT02”“0.15”“1.18”）（“1/34”“3/30”“4/31”“2”“14”“7/22”）（（“SPT03”“0.25”“2.44”）（“1/54”“3/74”“4/34”“1”“20”“7/744”））

怎么做？

BIGAL · 发表于 2022-7-5 18:06:31

不知道你是怎么得到SPT01的，因为（列出SPT01 0.11 1.15）根据你的帖子返回（零0.11 1.15）（列出“SPT01”0.11 1.15），无论如何RTOS是你的朋友。你做了第N个。SPT01是变量名吗？

copy


; ignoring nested list for moment
(setq s (list "SPT01" 0.11 1.15))
(subst (rtos (nth 1 s) 2 2)(nth 1 s) s)
(subst (rtos (nth 2 s) 2 2)(nth 2 s) s)
; returns !s
("SPT01" "0.11" "1.15")

copy


;nested nth's
(nth 0 lst) = ((SPT01 0.11 1.15) (1/35 3/33 4/31 1 18 7/31))
(nth 0 (nth 0 lst))=(SPT01 0.11 1.15)
(nth 1 (nth 0 (nth 0 lst)))=0.11

satishrajdev · 发表于 2022-7-5 18:15:49

这可能有助于：-

copy

(defun foo (x)
 (mapcar '(lambda (y)
     (mapcar '(lambda (z)
                (mapcar 'vl-princ-to-string z)
              )
             y
     )
   )
  x
 )
)