2015年05月24日

原创 2015年07月10日 09:46:40
program num8;
const n=1500;waymax=4;
      dx:array[1..4]of longint=(0,1,0,-1);
      dy:array[1..4]of longint=(1,0,-1,0);
type sh=array[1..3,1..3]of longint;
var state:array[1..n]of sh;
    father,b:array[1..n]of longint;
    yes:sh;
    o:array[1..n,1..2]of longint;
    top,head,wayn,i,j,k,x,y,xx,yy,q:longint;
    can,succ:boolean;
procedure print(v:longint);
var buf:array[1..n]of longint;
    m:longint;
begin
 m:=0;
 while v>0 do
  begin
   m:=m+1;
   buf[m]:=v;
   v:=father[v];
  end;
 for i:=m downto 1 do
  begin
   for j:=1 to 3 do
     write(state[buf[i],j,k]:2);
     writeln;
  end;
  //close(input);close(output);
end;
function check:boolean;
var i,j,k:longint;
begin
 check:=true;
 for k:=1 to top-1 do
 for i:=1 to 3 do
  for j:=1 to 3 do
   if state[top,i,j]<>state[k,i,j] then exit(false);
end;
begin
 //assign(input,'input.txt');
 //assign(output,'output.txt');
 //reset(input);
 //rewrite(output);
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    begin
     read(state[1,i,j]);
    readln;
    end;
   readln;
  end;
 for i:=1 to 3 do
  begin
   for j:=1 to 3 do
    read(yes[i,j]);
   readln;
  end;
  head:=0;top:=1;father[1]:=0;
  repeat
   head:=head+1;
   for wayn:=1 to waymax do
    begin
     can:=true;
     xx:=o[head,1];yy:=o[head,2];
     x:=xx+dx[wayn];y:=yy+dy[wayn];
     if((x<1)or(x>3))or((y<1)or(y>3))then can:=false;
     if can then
      begin
       top:=top+1;father[top]:=head;
       o[top,1]:=x;o[top,2]:=y;
       b[top]:=b[head]+1;
       state[top]:=state[head];
       state[top,xx,yy]:=state[head,x,y];
       state[top,x,y]:=0;
       if check then top:=top-1
       else
       begin
        succ:=true;
        for i:=1 to 3 do
         for j:=1 to 3 do
         if state[top,i,j]<>yes[i,j] then succ:=false;
        if succ then begin
        print(top);halt;end;
       end;
      end;
     end;
  until(head>top);
end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

2015年6月24日-ps绘画与修饰工具组

修饰类工具 这一工具是修照片什么的,局部修饰,有一下几个模式: 污点修复画笔工具 直接涂抹在痘痘、黑头上,就可以去掉啦 修复画笔工具 有取样点,按住Alt取样,类似图章仿...

自学笔记-C语言复习2015年6月24日

五、常量的概述及分类 1、常量:计算机中表示固定不变的数据,用常量来表示 2、分类: 1)整形常量 A、10进制整形常量(默认) B、8进制整形常量,以0开头 C、2进制整形常量,以0B开头 D、16...

独立日记 2015年12月24日 day3 平安夜

今天的流水账:   02:00 入睡   10:50 起床   18:00 看电影 + 散步   21:30 重新设计跑酷游戏中的跑道生成系统。 《Game Design Worksho...

(HTML部分)特供.Net基础全套视频教程2014版(第十八天)(更新于2015年10月24日02:23:36)

html 不区分大小写     空格标签 &nbsp 如:莫使金樽&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;空对月。 代表诗句间有五个空格     标题标签 :#=1~6 我是标题 ...

公元2015年11月24日。雨。

这两天在测试一个项目的性能。 现在还是入门级别地使用LoadRunner。 这个项目其实没有很大的特别之处,从app端传数据给sever端。 测试的是接口之处。 算是一个练手。 但是进度被停...

XJ001班2015年12月24日课堂总结与作业

下次课前要看的云课堂内容 1、初识Servlet、过滤器和监听器: 任务2:过滤器 任务3:监听器 2、监听器内容补充 任务1、任务2 3、项目总结 任务1、2、3、4 作业见...

浅讲医院若何进止微专营销 05月27日

楼兰破论坛:www.loulanpo.com  中介买卖 SEO诊断淘宝客 站长团购 云主机 A5外包        微博是一个社会化媒体,更是一个重生事物。跟着移动互联网的不息成生和生长,微...

网站进止友链交换时需供重视的事项有哪些? 05月27日

楼兰破论坛:www.loulanpo.com  中介生意营业 SEO诊断淘宝客 站长团购 云主机 A5外包    自4月25日百度站长平台揭晓了关于外链作弊的见解,外链变得愈来愈易,让许多站长们盲...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)