challenge-120/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

#!/usr/bin/awk

#
# See ../README.md
#

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

{
    out = 0
    num = $1
    for (i = 0; i < 8; i ++) {
        bit = int ((num - (num % 2 ^ i)) / 2 ^ i) % 2;
        if (bit) {
            out += 2 ^ (i + (i % 2 ? -1 : 1))
        }
    }
    print out
}