Lavo语言源程序——数独

leesoft

代码一帖出就走样，干脆上传源代码文件。

leesoft

其中sudu_jie()函数是解数独的主函数。

采用暴力搜索算法。既没用递归，也没用堆栈。在PocketPC上运行，解一个全空的数独，耗时不到1秒。

Eastsun

嗯，不错，支持一下。

不过如果想再LAVAXIDE上面编译运行，要做一些修改：

第29，36行的GetBlock(0,2,8,12,0x40,g_digit[0]);改为GetBlock(0,2,8,12,0,g_digit[0]);

还有那些Line(PAN_X,PAN_Y+(i<<4),PAN_X+144,PAN_Y+(i<<4),1);里面的type 应改为0x41

然后前面加上

#width  240
#height 160

这样就可以显示出来了。

无言的梦

顶一下

leesoft

Eastsun说得对。

Lavo的绘图函数全部针对缓冲区，包括line,circle等函数，这样做是为了完全杜绝直接屏幕绘图引起的闪烁问题。

wqx1

未定义的变量!?

leesoft

看清楚，是Lavo语言源程序，不是LavaX！

一楼帖出来的代码走样了，从二楼下载文件。

wqx1

SORRY

支持LAV0,建议加上虚拟机啊!

leesoft

LavoIde里面含Lavo虚拟机啊

Eastsun

LAVO IDE可以去lee的blog下载。。。

ps：今天下午在中关村附近的一家成都小吃看到一个人，巨象lee（的照片）
[em01]

leesoft

那一定不是俺。

俺今天一直在家安空调。

shenji

支持一下，頂了[em01]

shenji

11樓有意思，呵呵
[em01]

shenji

LAVO面向中高端嵌入式設備，看來大有發展前景。。。

期待出GBA上的虛擬機。

正想入手NDS，看來有得玩了，嘻嘻。。。


[em01]

星星侠客

挺好挺好。。。

leesoft

1. #define PAN_X  8
2. #define PAN_Y  8
3. #define PAN_COLOR 175+16
4. #define BLOCK_COLOR 0x10
5. #define ACT_COLOR 0x10
6. #define DING_COLOR 0x14
8. char g_digit[2][10][8*16];
10. char pan[11][16];
11. char pan_flag[11][16];
13. char x_pan[11][16];
14. char y_pan[11][16];
15. char z_pan[11][16];
17. void init_digit()
18. {
19. int i;
20. char s[2];
22. SetBgColor(PAN_COLOR);
23. SetFgColor(ACT_COLOR);
24. s[1]=0;
25. for (i=0;i<10;i++) {
26.   if (i==0) s[0]=&#39; &#39;;
27.   else s[0]=i+&#39;0&#39;;
28.   TextOut(0,0,s,0x81);
29.   GetBlock(0,2,8,12,0x40,g_digit[0][i]);
30. }
31. SetFgColor(DING_COLOR);
32. for (i=0;i<10;i++) {
33.   if (i==0) s[0]=&#39; &#39;;
34.   else s[0]=i+&#39;0&#39;;
35.   TextOut(0,0,s,0x81);
36.   GetBlock(0,2,8,12,0x40,g_digit[1][i]);
37. }
38. }
40. void draw_pan()
41. {
42. int i;
44. SetBgColor(PAN_COLOR);
45. SetFgColor(BLOCK_COLOR);
46. Block(PAN_X,PAN_Y,PAN_X+143,PAN_Y+143,0);
47. for (i=0;i<10;i++) {
48.   Line(PAN_X,PAN_Y+(i<<4),PAN_X+144,PAN_Y+(i<<4),1);
49.   Line(PAN_X+(i<<4),PAN_Y,PAN_X+(i<<4),PAN_Y+144,1);
50. }
51. for (i=0;i<=144;i=i+48) {
52.   Line(PAN_X,PAN_Y-1+i,PAN_X+144,PAN_Y-1+i,1);
53.   Line(PAN_X,PAN_Y+1+i,PAN_X+144,PAN_Y+1+i,1);
54.   Line(PAN_X-1+i,PAN_Y,PAN_X-1+i,PAN_Y+144,1);
55.   Line(PAN_X+1+i,PAN_Y,PAN_X+1+i,PAN_Y+144,1);
56. }
57. }
59. void draw_num()
60. {
61. int i,j;
63. for (i=1;i<=9;i++) {
64.   for (j=1;j<=9;j++) {
65.   WriteBlock(PAN_X-16+5+(j<<4),PAN_Y-16+3+(i<<4),8,12,1,g_digit[pan_flag[i][j]][pan[i][j]]);
66.   }
67. }
68. }
70. void pan_init()
71. {
72. memset(pan,0,sizeof(pan));
73. memset(pan_flag,0,sizeof(pan_flag));
74. }
76. void set_xyz()
77. {
78. int x,y,z,t;
80. memset(x_pan,0,sizeof(x_pan));
81. memset(y_pan,0,sizeof(y_pan));
82. memset(z_pan,0,sizeof(z_pan));
83. for (y=1;y<=9;y++) {
84.   for (x=1;x<=9;x++) {
85.   t=pan[y][x];
86.   if (t) {
87.    z=(x-1)/3+(y-1)/3*3+1;
88.    x_pan[y][t]=1;
89.    y_pan[x][t]=1;
90.    z_pan[z][t]=1;
91.   }
92.   }
93. }
94. }
96. void sudu_jie()
97. {
98. int x,y,z,t,t_bak;
100. x=1;
101. y=1;
102. for (;;) {
103.   if (pan_flag[y][x]) { //数字已固定
104.   x++;
105.   if (x>9) {
106.    x=1;
107.    y++;
108.    if (y>9) break;
109.   }
110.   continue;
111.   }
112.   z=(x-1)/3+(y-1)/3*3+1;
113.   t_bak=pan[y][x];
114.   t=t_bak+1;
115. xxx2:
116.   pan[y][x]=t;
117.   if (t>9) {
118.   pan[y][x]=0;
119.   if (t_bak) {
120.    x_pan[y][t_bak]=0;
121.    y_pan[x][t_bak]=0;
122.    z_pan[z][t_bak]=0;
123.   }
124. xxx:
125.   x--;
126.   if (x<1) {
127.    x=9;
128.    y--;
129.    if (y<1) break;
130.   }
131.   if (pan_flag[y][x]) goto xxx;
132.   continue;
133.   }
134.   if (x_pan[y][t]) {
135.   t++;
136.   goto xxx2;
137.   }
138.   if (y_pan[x][t]) {
139.   t++;
140.   goto xxx2;
141.   }
142.   if (z_pan[z][t]) {
143.   t++;
144.   goto xxx2;
145.   }
146.   if (t_bak) {
147.   x_pan[y][t_bak]=0;
148.   y_pan[x][t_bak]=0;
149.   z_pan[z][t_bak]=0;
150.   }
151.   x_pan[y][t]=1;
152.   y_pan[x][t]=1;
153.   z_pan[z][t]=1;
154.   x++;
155.   if (x>9) {
156.   x=1;
157.   y++;
158.   if (y>9) break;
159.   }
160. }
161. }
163. void main()
164. {
165. long t;
167. init_digit();
169. pan_init();
170. set_xyz();
171. sudu_jie();
172. SetBgColor(0xec);
173. ClearScreen();
174. draw_pan();
175. draw_num();
176. Refresh();
177. getchar();
178. }

复制代码