challenge-153/abigail/awk/ch-2.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 https://theweeklychallenge.org/blog/perl-weekly-challenge-153
#

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

BEGIN {
    fac [0] = 1
    for (n = 1; n <= 9; n ++) {
        fac [n] = n * fac [n - 1]
    }
}

{
    sum = 0
    n = $1
    while (n > 0) {
        sum += fac [n % 10]
        n    = int (n / 10)
    }
    print sum == $1 ? 1 : 0
}