1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
$b='bcdefghia';eval($s='t={h:[1,0],j:[0,-1],k:
[0,1],l:[-1,0],i:[0,0]};p=->a,b{i=$b.index(?a
); x = i%
3+ a;y = i/3+b;(x< 0 ||2<x||y< 0|
|2 <y) | |($b[j=y* 3 +x],$b[i] =$
b[ i], $ b[j ] )}; i=
(o =:" # {$* [ 0]} ")
== :i; w hile(o!=: q );if(q=t[ o]
); p[* q ];else;(o = o.to_s.to _i
)> 0&& ( sra n d(o );
a= b=n = 45; ( p[* (a
,b =(t . values-[[ - a,-b],[0, 0]
]) .sa m ple)]&&n- = 1)while(n >0
); ) ; en
d;print("$b=\47#$b\47;eval($s=\47");n="111114
1424414143341142414424344111143434".scan(/.{,
5} / ) ;m
=" 000 001 1 00101111" . scan(/.{, 3}
/) ;s= 0;b = ->_=1{_.t i mes{print ($
s[ (s+ =1) - 1]) } };w =-
>_ =13 {pr i nt" \ 40" *_
}; b[22];put s ;3.times{ | y|b[45];p ut
s; b[2];w[]; b [];w[];b[ ] ;w[];b[2] ;p
ut s;1 0 .ti m es{ |l| b[
2] ;3. t ime s {|x |w[ 2]
;$ b[y * 3+x]==?a? ( (l==3&&!p ri
nt ("\ 4 0\40\124\ 1 22\111\10 3\
11 3 \ 40
\40"))||(l==5&&!print("\105\120\111\123\117\1
04\105\40\111"))||w[9]):m[n[$b[y*3+x].ord-98]
[l / 2 ].
to _i].chars { (_1==?1?b : w)
[3 ]};w[2];b [ x/2+1]};p u ts
}; b[2 ] ;w[ ];b [ ];
w[ ];b [ ];w []; b TRICK [2
]; put s ;b[45];pu t s}
;b [9] ; puts("\47 . EPISODE I gs
ub (/[ [ :sp ace : ][
:u ppe r :]] /,% % %)
); "); i ||break;p r in
t( "\1 2 enter\40[ h jk
l] \ 4 0o
r\40[q]uit\40>\40");o=:"#{$stdin.gets.chomp}"
;puts;end'.gsub(/[[:space:][:upper:]]/,%%%));
|
