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

#!/usr/bin/awk

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

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

function max (a, b) {
    return a < b ? b : a
}

{
    for (i = NF; i > 2; i --) {
        $i = max($i + $(i + 2), $(i + 1))
    }
    print $1 + $3
}