如何将输入41+42+50*3+52+52转换为41+42+50+50+50+52+52？

lxdz443

或者将41+42+50*3+52+52这类字符串转换为("41" "42" "50" "50" "50" "52" "52")

xyp1964

1. ;; (abc "41+42+50*3+52+52") →("41" "42" "50" "50" "50" "52" "52")
   
2. (defun abc (str / lst a b n tmp)
   
3.   (defun StrSpr (str sub / lst n)
   
4.     (while (setq n (vl-string-search sub str))
   
5.       (setq lst (cons (substr str 1 n) lst)
   
6.             str (substr str (+ n (strlen sub) 1))
   
7.       )
   
8.     )
   
9.     (vl-remove "" (reverse (cons str lst)))
   
10.   )
    
11.   (setq lst (mapcar '(lambda (x)
    
12.                        (if (vl-string-search "*" x)
    
13.                          (setq a (StrSpr x "*")
    
14.                                n (cadr a)
    
15.                                a (car a)
    
16.                                b (repeat (atoi n)(setq tmp (cons a tmp)))
    
17.                          )
    
18.                          (list x)
    
19.                        )
    
20.                      )
    
21.                     (StrSpr str "+")
    
22.             )
    
23.         lst (apply 'append lst)
    
24.   )
    
25. )
    

;; (abc "41+42+50*3+52+52") →("41" "42" "50" "50" "50" "52" "52")<br /> (defun abc (str / lst a b n tmp)<br />   (defun StrSpr (str sub / lst n)<br />     (while (setq n (vl-string-search sub str))<br />       (setq lst (cons (substr str 1 n) lst)<br />             str (substr str (+ n (strlen sub) 1))<br />       )<br />     )<br />     (vl-remove "" (reverse (cons str lst)))<br />   )<br />   (setq lst (mapcar '(lambda (x)<br />                        (if (vl-string-search "*" x)<br />                          (setq a (StrSpr x "*")<br />                                n (cadr a)<br />                                a (car a)<br />                                b (repeat (atoi n)(setq tmp (cons a tmp)))<br />                          )<br />                          (list x)<br />                        )<br />                      )<br />                     (StrSpr str "+")<br />             )<br />         lst (apply 'append lst)<br />   )<br /> )<br />

lxdz443

感谢xyp1964。