challenge-126/abigail/awk/ch-1.awk


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

#!/usr/bin/awk

#
# See ../README.md
#

#
# Run as: awk -f ch-1.awk < input-file
#

{
    result = 0
    seen_one = 0
    split ($1, digits, "")
    for (i = 1; i <= length (digits); i ++) {
        result *= 9
        if (seen_one) {result += 8}
        else {
            if (digits [i] == 1) {seen_one = 1}
            else {
                if (digits [i] != 0) {result += digits [i] - 1}
            }
        }
    }
    print result
}