多个计算同时进行问题

菜卷鱼

(setq syblist  (list = = = > < )
Oldstring  '(2 3 4 5 6)
NEWstring '(2 3 4  3 4))

(mapcar '(lambda(a b c) (a b c)) syblist  Oldstring NEWstring )

可以计算出 ( T T T T nil)
但是如果 (setq syblist  (list = = = or < )) 就无法计算了，
为什么 syblist 只能全是符号？

我要比对两个表，只要求他三个数据相同

ivde

(setq syblist        (list '= '= '= 'or '<)
      Oldstring        '(2 3 4 5 6)
      NEWstring        '(2 3 4 3 4)
)
(mapcar        '(lambda (a b c) (apply a (list b c)))
        syblist
        Oldstring
        NEWstring
)

llsheng_73

1. (mapcar'apply'(= = = or <)(mapcar'list'(2 3 4 5 6)'(2 3 4 3 4)))
   
2. (mapcar'eval(mapcar'list'(= = = or <)'(2 3 4 5 6)'(2 3 4 3 4)))
   
3. (vl-every'equal'(t t t)(mapcar'equal'(2 3 4 5 6)'(2 3 4 3 4)));;前三个是否相同
   
4. (>=(length(vl-remove'nil(mapcar'equal'(2 3 4 5 6)'(2 3 4 3 4))))3);;是否有三个及三个以上相同

(mapcar'apply'(= = = or <)(mapcar'list'(2 3 4 5 6)'(2 3 4 3 4)))<br /> (mapcar'eval(mapcar'list'(= = = or <)'(2 3 4 5 6)'(2 3 4 3 4)))<br /> (vl-every'equal'(t t t)(mapcar'equal'(2 3 4 5 6)'(2 3 4 3 4)));;前三个是否相同<br /> (>=(length(vl-remove'nil(mapcar'equal'(2 3 4 5 6)'(2 3 4 3 4))))3);;是否有三个及三个以上相同

oistre

大神牛牛牛牛牛！!