2012年3月30日
八数码深搜
摘要： program bashum;const maxl=100; dir:array[1..4,1..2]of integer=((1,0),(-1,0),(0,1),(0,-1));type sta=record kx,ky:longint; m:array[1..3,1..3]of integer; end;var p,ans:array[1..maxl]of sta; tar:sta; i,j,k,ansl:longint;function check(k,d:integer):boolean;var i,j:integer;begin if ... 阅读全文
posted @ 2012-03-30 13:36 翱翔的感觉 阅读(123) 评论(0) 推荐(0)