多重镶套表

nzl1116 · 发表于 2012-1-11 12:47

在正则表达式中，多重镶套表该如何处理？？？
比如：
(1 + ((2 - 3) * 4) / (5 * (6 - 7) + 8 * 9))

caoyin · 发表于 2012-1-11 12:54

本帖最后由 caoyin 于 2012-1-11 12:56 编辑

(or c:cal (arxload "geomcal"))
(c:cal "(1 + ((2 - 3) * 4) / (5 * (6 - 7) + 8 * 9))")

nzl1116 · 发表于 2012-1-11 13:11

谢谢caoyin的回复
我是求表处理的思路

caoyin · 发表于 2012-1-11 13:17

但是你提供的是表达式，而不是表！

nzl1116 · 发表于 2012-1-11 13:25

表达能力差点

byghbcx · 发表于 2012-1-11 15:39

这是什么表？

cabinsummer · 发表于 2012-1-12 07:18

LISP处理表的功能很强大了，楼主是要正则还是要计算？

nzl1116 · 发表于 2012-1-12 11:09

cabinsummer 发表于 2012-1-12 07:18
LISP处理表的功能很强大了，楼主是要正则还是要计算？

已经有了思路，还没完全验证正确

(defun MulOrDivCalOrder (NorSLst1)
(cond
((<= (length NorSLst1) 2) NorSLst1)
((member (cadr NorSLst1) '(* /))
(MulOrDivCalOrder (cons (eval (list (cadr NorSLst1) (car NorSLst1) (caddr NorSLst1) 1.0)) (cdddr NorSLst1)))
)
(T (cons (car NorSLst1) (MulOrDivCalOrder (cdr NorSLst1))))
)
)
(defun AddOrSubCalOrder (NorSLst2)
(cond
((<= (length NorSLst2) 2) NorSLst2)
((member (cadr NorSLst2) '(+ -))
(AddOrSubCalOrder (cons (eval (list (cadr NorSLst2) (car NorSLst2) (caddr NorSLst2))) (cdddr NorSLst2)))
)
(T (cons (car NorSLst2) (AddOrSubCalOrder (cdr NorSLst2))))
)
)
(defun listCalOrder (NorSLst0)
(cond
((not NorSLst0) NorSLst0)
(T (if (vl-some 'listp NorSLst0)
(car (AddOrSubCalOrder (MulOrDivCalOrder (mapcar (function (lambda (x) (if (listp x) (listCalOrder x) x))) NorSLst0))))
(car (AddOrSubCalOrder (MulOrDivCalOrder NorSLst0)))
)
)
)
)

(defun MulOrDivCalOrder (NorSLst1) 
  (cond 
    ((<= (length NorSLst1) 2) NorSLst1) 
    ((member (cadr NorSLst1) '(* /)) 
     (MulOrDivCalOrder (cons (eval (list (cadr NorSLst1) (car NorSLst1) (caddr NorSLst1) 1.0)) (cdddr NorSLst1))) 
    ) 
    (T (cons (car NorSLst1) (MulOrDivCalOrder (cdr NorSLst1)))) 
  ) 
) 
(defun AddOrSubCalOrder        (NorSLst2) 
  (cond 
    ((<= (length NorSLst2) 2) NorSLst2) 
    ((member (cadr NorSLst2) '(+ -)) 
     (AddOrSubCalOrder (cons (eval (list (cadr NorSLst2) (car NorSLst2) (caddr NorSLst2))) (cdddr NorSLst2))) 
    ) 
    (T (cons (car NorSLst2) (AddOrSubCalOrder (cdr NorSLst2)))) 
  ) 
) 
(defun listCalOrder (NorSLst0) 
  (cond 
    ((not NorSLst0) NorSLst0) 
    (T (if (vl-some 'listp NorSLst0) 
         (car (AddOrSubCalOrder (MulOrDivCalOrder (mapcar (function (lambda (x) (if (listp x) (listCalOrder x) x))) NorSLst0)))) 
         (car (AddOrSubCalOrder (MulOrDivCalOrder NorSLst0))) 
       ) 
    ) 
  ) 
)

对于正则，你的思路是什么？

nzl1116 · 发表于 2012-1-12 20:41

拨云见日，一句的问题，比如，对多重镶套表求和

(defun sumMList (Lst)
(if Lst
(apply '+ (mapcar '(lambda (x) (if (listp x) (sumMList x) x)) Lst))
)
)

狂刀lxx · 发表于 2012-1-13 02:11

(1 + ((2 - 3) * 4) / (5 * (6 - 7) + 8 * 9)) 这个是数学表达式，和正则表达式好像不是一回事。
用lisp编程解析这个有点吃力不讨好，因为如上用c:cal可以算，直接用vba表达式也可以，vbscript等都比lisp编程简单多了。就一句话的事情，而且lisp解析不容易考虑全面（即各种数学表达式的形态）
如果你只是想研究嵌套表的应用那又是另外一回事

账号		自动登录	找回密码
密码			注册

多重镶套表

本帖被以下淘专辑推荐:

浏览过的版块