用repeat和If遍历配合遇到的一个问题

124803430

2. (setq aa '((1 2)(2 3 33)(5 6))
   
3.       bbb 0
   
4.       cc (length aa))
   
5. (if(and(repeat cc
   
6.     (equal (/(length(nth bbb aa)) 2) 1 0.001)
   
7.     (setq bbb (1+ bbb))
   
8.          )
   
9. 
   
10. )
    
11. 
    
12.     (alert "表中有大于2个元素的表")
    
13. (alert "继续运行下面程序")
    
14. )
    

(setq aa '((1 2)(2 3 33)(5 6))<br />       bbb 0<br />       cc (length aa))<br /> (if(and(repeat cc<br />     (equal (/(length(nth bbb aa)) 2) 1 0.001)<br />     (setq bbb (1+ bbb))<br />          )<br /> <br /> )<br /> <br />     (alert "表中有大于2个元素的表")<br /> (alert "继续运行下面程序")<br /> )<br />

我想要的结果是遍历一个变量表aa
里面的元素子表,如果有大于2个元素的表就报错，不运行下面的程序了
但是上面这段代码实现不了
改了很多次都没成功，求教高人该怎么改？？？？

鱼与熊掌

(setq aa '((1 2)(2 3 33)(5 6))
        bbb 0
        cc (length aa)
)
(repeat cc
        (if(> (length (nth bbb aa))2)
                (alert "有大于个数2的表")
        )
        (setq bbb(1+ bbb))
)

鱼与熊掌

好把 我错了

124803430

楼上发伪源码根本木有解决我的问题

124803430

鱼与熊掌 发表于 2015-5-26 20:29
(setq aa '((1 2)(2 3 33)(5 6))
        bbb 0
        cc (length aa)

你这样写还是有问题
我意思是只要aa表里有一个子表元素大于2个，下面代码就停止运行
你把IF写到里面，就只有大于2的那个不运行，其他的子表为真的情况还是会运行后面的程序