メモ

a is pressed.
b is pressed.
a is released.
c is pressed.
b is released.
c is released.
d is pressed.
d is released.
e is pressed.
f is pressed.
e is released.
f is released.
g is pressed.
h is pressed.
g is released.
i is pressed.
h is released.
i is released.
j is pressed.
k is pressed.
l is pressed.
j is released.
m is pressed.
k is released.
l is released.
m is released.
n is pressed.
o is pressed.
p is pressed.
n is released.
q is pressed.
o is released.
r is pressed.
p is released.
q is released.
r is released.
s is pressed.
t is pressed.
s is released.
u is pressed.
t is released.
u is released.
v is pressed.
w is pressed.
v is released.
w is released.
x is pressed.
y is pressed.
x is released.
y is released.
z is pressed.
z is released.


perl -e "@line = <stdin>; $press = 0; foreach (@line) { print $press, qq{\n}; $press++ if /pressed/; $press-- if /released/; }" < typelog.txt

0
1
2
1
2
1
0
1
0
1
2
1
0
1
2
1
2
1
0
1
2
3
2
3
2
1
0
1
2
3
2
3
2
3
2
1
0
1
2
1
2
1
0
1
2
1
0
1
2
1
0
1


最高でも三つ。