challenge-147/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-147
#

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

BEGIN {
    while (!done) {
        p += n + n + n ++ + 1
        pentagon [p] = 1

        for (seen in pentagon) {
            if (seen + seen < p && (p - seen)        in pentagon \
                                && (p - seen - seen) in pentagon ) {
                print seen, p - seen
                done = 1
                break
            }
        }
    }
}