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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/awk

#
# See https://theweeklychallenge.org/blog/perl-weekly-challenge-153
#

#
# Run as: awk -f ch-1.awk
#

BEGIN {
    sum = 1
    fac = 1
    printf "%d", sum
    for (n = 1; n <= 9; n ++) {
        printf " %d", sum += fac *= n
    }
    printf "\n"
}