blob: 599b1a4fcb3eef36dae204e92aa28b12576d7097 (
plain) (
blame)
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
|
{
sub("^ ", "[.] ");
gsub(" ", " [.]");
}
/^\[/ {
for (i = 1; i <= NF; i++) {
x = substr($i, 2, 1);
if (x == ".") continue;
a[i] = a[i] x;
}
}
/^move/ {
count = $2;
from = $4;
to = $6;
for (i = 1; i <= count; i++) {
x = substr(a[from], 1, 1);
a[from] = substr(a[from], 2);
a[to] = x a[to];
}
}
END {
for (i = 1; a[i]; i++) {
printf substr(a[i], 1, 1);
}
printf "\n";
}
|