challenge-150/abigail/lua/ch-1.lua


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

#!/opt/local/bin/lua

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

--
-- Run as: lua ch-1.lua < input-file
--

local LENGTH = 51

for line in io . lines () do
    local fib_prev, fib_last = line : match ("(%S+) (%S+)")
    while fib_last : len () < LENGTH do
        fib_prev, fib_last = fib_last, fib_prev .. fib_last
    end
    print (fib_last : sub (LENGTH, LENGTH))
end