摘要：
#!/user/bin/perlmy @maze=([qw(e swe we ws)],[qw(ne new sw ns)],[qw(ns - ns wn)],[qw(ne w ne w)],);my %direction=(n=>[-1,0],s=>[1,0],e=>[0,1],w=>[0,-1]);my %full=(e=>'East',n=>'North'... 阅读全文
posted @ 2010-07-01 15:19 jasonC 阅读(348) 评论(0) 推荐(0) 编辑