diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-01-18 08:58:27 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-01-18 08:58:27 +0000 |
| commit | 52f3516552615dad1ad7566fd5934fca2914faaf (patch) | |
| tree | dd57748653cc360b3f483f12d6821994f92cf721 /challenge-147/abigail/lua/ch-2.lua | |
| parent | 9c9cb3dcb25537525090902ca4b8d10ae17e8960 (diff) | |
| parent | d2faecf9b3a1517b6303c84d23b35a6c26789fda (diff) | |
| download | perlweeklychallenge-club-52f3516552615dad1ad7566fd5934fca2914faaf.tar.gz perlweeklychallenge-club-52f3516552615dad1ad7566fd5934fca2914faaf.tar.bz2 perlweeklychallenge-club-52f3516552615dad1ad7566fd5934fca2914faaf.zip | |
Merge pull request #5533 from Abigail/abigail/week-147
Abigail/week 147
Diffstat (limited to 'challenge-147/abigail/lua/ch-2.lua')
| -rw-r--r-- | challenge-147/abigail/lua/ch-2.lua | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/challenge-147/abigail/lua/ch-2.lua b/challenge-147/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..1d93585f24 --- /dev/null +++ b/challenge-147/abigail/lua/ch-2.lua @@ -0,0 +1,29 @@ +#!/opt/local/bin/lua + +-- +-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-147 +-- + +-- +-- Run as: lua ch-2.lua +-- + +pentagon = {} +p = 0 +n = 0 + +while true do + p = p + n + n + n + 1 + n = n + 1 + pentagon [p] = 1 + for seen in pairs (pentagon) do + if seen + seen <= p and pentagon [p - seen] ~= nil + and pentagon [p - seen - seen] ~= nil then + print (seen .. " " .. (p - seen)) + goto end_of_while + end + end +end + +::end_of_while:: + |