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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
$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;
while (o != :q);
if (q = t[o]);
p[*q];
else;
(o = o.to_s.to_i) > 0 && (
srand(o);
a = b = n = 45;
(p[*(a, b = (t.values - [[-a, -b], [0, 0]]).sample)] && n -= 1) while (n > 0);
);
end;
print("$b=\47#$b\47;eval($s=\47");
n = "1111141424414143341142414424344111143434".scan(/.{,5}/);
m = "000001100101111".scan(/.{,3}/);
s = 0;
b = -> _ = 1 {_.times{print($s[(s += 1) - 1])}};
w = -> _ = 13 {print "\40" * _};
b[22];
puts;
3.times {|y|
b[45];
puts;
b[2];
w[];
b[];
w[];
b[];
w[];
b[2];
puts;
10.times {|l|
b[2];
3.times {|x|
w[2];
$b[y * 3 + x] == ?a ? (
(l == 3 && !print("\40\40\124\122\111\103\113\40\40")) ||
(l == 5 && !print("\105\120\111\123\117\104\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]
};
puts
};
b[2];
w[];
b[];
w[];
b[];
w[];
b[2];
puts;
b[45];
puts
};
b[9];
puts("\47.gsub(/[[:space:][:upper:]]/,%%%));");
i ||
break;
print("\12enter\40[hjkl]\40or\40[q]uit\40>\40");
o = :"#{$stdin.gets.chomp}";
puts;
end'.gsub(/[[:space:][:upper:]]/,%%%));
|
