请教一下表的转换操作

aws

•   (setq lst '("12*2" "2*10" "10*11" "5.5*5"))
•   
•   (setq newlst '(12 12 2 2 2 2 2 2 2 2 2 2 10 10 10 10 10 10 10 10 10 10 10 5.5 5.5 5.5 5.5 5.5))
  

请教一下，这样该怎么实现？
如上述这样转换，注意的是，上面是字符串，下面是实数或者整数
尽量用简洁的代码。

lijiao

2. (setq lst '("12*2" "2*10" "10*11" "5.5*5"))
   
3. (apply 'append
   
4.        (mapcar '(lambda        (x)
   
5.                   (setq        x      (read (vl-string-subst " " "*" (strcat "(" x ")")))
   
6.                         sublst nil
   
7.                   )
   
8.                   (repeat (cadr x)
   
9.                     (setq sublst (cons (car x) sublst))
   
10.                   )
    
11.                 )
    
12.                lst
    
13.        )
    
14. )

(setq lst '("12*2" "2*10" "10*11" "5.5*5"))<br /> (apply 'append<br />        (mapcar '(lambda        (x)<br />                   (setq        x      (read (vl-string-subst " " "*" (strcat "(" x ")")))<br />                         sublst nil<br />                   )<br />                   (repeat (cadr x)<br />                     (setq sublst (cons (car x) sublst))<br />                   )<br />                 )<br />                lst<br />        )<br /> )

muai2010

同不会哈哈，没研究这么深，只会改c:后面的快捷键

aws

1. (defun c:tt ()
   
2.   (setq lst '("12*2" "2*10" "10*11" "5.5*5"))
   
3.   (setq lst(mapcar '(lambda(x)
   
4.                       (list
   
5.                         (substr x 1(vl-string-search "*" x))
   
6.                         (substr x(+ 2(vl-string-search "*" x)))        
   
7.                       )
   
8.                     )
   
9.              lst)
   
10.   )
    
11.   (setq newlst nil)
    
12.   (foreach x lst
    
13.     (repeat(atoi(cadr x))
    
14.       (setq newlst(cons(atof(car x))newlst))
    
15.     )
    
16.   )
    
17. (setq newlst(reverse newlst))
    
18.   (print newlst)
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (setq lst '("12*2" "2*10" "10*11" "5.5*5"))<br />   (setq lst(mapcar '(lambda(x)<br />                       (list<br />                         (substr x 1(vl-string-search "*" x))<br />                         (substr x(+ 2(vl-string-search "*" x)))        <br />                       )<br />                     )<br />              lst)<br />   )<br />   (setq newlst nil)<br />   (foreach x lst<br />     (repeat(atoi(cadr x))<br />       (setq newlst(cons(atof(car x))newlst))<br />     ) <br />   )<br /> (setq newlst(reverse newlst))<br />   (print newlst)<br />   (princ)<br /> )

好吧，稍微研究了一下，写成这样，倒也达到效果了。还有更简洁的吗

你有种再说一遍

你5000积分了没学会切割字符串?

aws

你有种再说一遍 发表于 2024-8-10 21:50
你5000积分了没学会切割字符串?

确实对字符串相关处理，研究不多

lee50310

指令:tt2
回應: (12 12 2 2 2 2 2 2 2 2 2 2 10 10 10 10 10 10 10 10 10 10 10 5.5 5.5 5.5 5.5 5.5)

xxyyzzlg

感谢热心解答，学到了

THZL

(defun c:tt ()
  ;; 定义乘法表达式的列表
  (setq lst '("12*2" "2*10" "10*11" "5.5*5"))
  
  ;; 初始化一个空列表用于存储结果
  (setq newlst nil)
  
  ;; 处理每个乘法表达式
  (foreach expr lst
    ;; 获取乘法符号的位置
    (setq pos (vl-string-search "*" expr))
    ;; 提取两个数字
    (setq num1 (atof (substr expr 1 pos)))
    (setq num2 (atoi (substr expr (+ pos 2))))
    ;; 根据第二个数字重复第一个数字
    (repeat num2
      (setq newlst (append newlst (list num1)))
    )
  )
  
  ;; 打印结果
  (print newlst)
  
  ;; 退出函数
  (princ)
)

THZL

不知道能不能帮上老哥忙