challenge-150/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 https://theweeklychallenge.org/blog/perl-weekly-challenge-150
#

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

{
    fib_prev = $1
    fib_last = $2
    LENGTH = 51
    while (length (fib_last) < LENGTH) {
        fib_tmp  = fib_last
        fib_last = fib_prev fib_last
        fib_prev = fib_tmp
    }
    print substr (fib_last, LENGTH, 1)
}