2021/10/puzzle-2.sed


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

:top
s/()//
s/\[\]//
s/{}//
s/<>//
t top

/[])}>]/d

:loop
s/\([(\[{<]*\)($/s = s * 5 + 1;\1/
s/\([(\[{<]*\)\[$/s = s * 5 + 2;\1/
s/\([(\[{<]*\){$/s = s * 5 + 3;\1/
s/\([(\[{<]*\)<$/s = s * 5 + 4;\1/
t loop

is = 0;
as