[求助]：这个小循环错那儿了？

温柔女神

很长。。。。
(setq mm(+ m 1) nn(+ n 1))
(setq i -1)
(repeat mm
(setq i (+ i 1))
(setq j -1)
(repeat nn
(setq j (+ j 1))

(setq hx (+ (* i 100) x0)
      zx (+ (* j 100) y0)
)

。。。。。
我的意思是查找图副，
比如上面N副，向右M，一个方形的所有图副全部找出来
    每副横竖相差100

问题：我查的结果不对呢
横向是对的，纵向不对，纵向一直找到很高很高地方去了
什么原因呢

fan_yilin

你的这问题，我没有弄懂，程序的逻辑错了，是只有你自己知道的，能运行说明，程序本身没有错。

温柔女神

我的意思是实现如下：
C格式
for i=0  to mm
     for j=0 to nn
........................
endfor
endfor

组合应该如下：
如果NN=1, MM=1
则组合：[0,0] , [0,1]
[1,0] , [1,1]

zooloo

(setq i 0 j 0)
(while (<= i mm)
(setq  i (+ i 1))
(while (<= j nn)
(setq j (+ j 1))
................
................
}
}

fsxm

测试：

2. 
   
3. (setq mm 5)
   
4. (setq nn 5)
   
5. 
   
6. (setq m 0)
   
7. (repeat        (- mm m)
   
8.   (setq n 0)
   
9.   (repeat (- nn n)
   
10.     (princ (list m n))
    
11.     (setq n (1+ n))
    
12.   )
    
13.   (setq m (1+ m))
    
14. )
    

<br /> (setq mm 5)<br /> (setq nn 5)<br /> <br /> (setq m 0)<br /> (repeat        (- mm m)<br />   (setq n 0)<br />   (repeat (- nn n)<br />     (princ (list m n))<br />     (setq n (1+ n))<br />   )<br />   (setq m (1+ m))<br /> )<br />