blob: 0b9881e73a0fddfaa4996fa86a031bad6135c9a3 (
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
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
|
#!/bin/sh
gawk -v CC="$1" -v TYPE="$2" -v MODE="$3" '
function hndl(x)
{
if (x == "/")
return
if (x ~ /X/) {
have_c++
cnt_c++
} else if (x ~ /[O@]/) {
have_n++
cnt_n++
} else if (x ~ /[-^]/) {
cnt_c++
} else if (x ~ /[*%+]/) {
cnt_n++
} else if (x == "?") {
cnt_u++
}
}
function gen(have, cnt)
{
if (cnt == 0)
print "N/A"
else
printf "%d/%d (%d%%)\n", have, cnt, have / cnt * 100
}
BEGIN {
CC = toupper(CC)
}
FILENAME == "data/coins" && $1 == CC && TYPE == "s" && $2 != "start" {
split($0, xs)
for (i = 2; i < length(xs); i++)
hndl(xs[i])
}
FILENAME == "data/ccs" && $1 == CC && TYPE == "c" {
gsub(/([A-Z]{2} [0-9]{4} |\t.*)/, " ")
split($0, xs)
for (i = 1; i <= length(xs); i++)
hndl(xs[i])
}
END {
if (MODE == "circ")
gen(have_c, cnt_c)
else if (MODE == "nifc")
gen(have_n, cnt_n)
else if (MODE == "comb")
gen(have_c + have_n, cnt_c + cnt_n + cnt_u)
}
' data/coins data/ccs
|
