diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-10-13 19:31:22 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-13 19:31:22 +0100 |
| commit | 6f7a2e3cbbec44cc216c6d0e6a370f9ec60e3c84 (patch) | |
| tree | 0ac9f540650e975d68834fad4197928eda9c20f2 /challenge-134/abigail/lua | |
| parent | ace3e8d314fab84624d1498c05d228e5ab6df16b (diff) | |
| parent | 8d2394c5f5968392ece3d6d73a5f98e267edf40f (diff) | |
| download | perlweeklychallenge-club-6f7a2e3cbbec44cc216c6d0e6a370f9ec60e3c84.tar.gz perlweeklychallenge-club-6f7a2e3cbbec44cc216c6d0e6a370f9ec60e3c84.tar.bz2 perlweeklychallenge-club-6f7a2e3cbbec44cc216c6d0e6a370f9ec60e3c84.zip | |
Merge pull request #5017 from Abigail/abigail/week-134
Abigail/week 134
Diffstat (limited to 'challenge-134/abigail/lua')
| -rw-r--r-- | challenge-134/abigail/lua/ch-1.lua | 13 | ||||
| -rw-r--r-- | challenge-134/abigail/lua/ch-2.lua | 24 |
2 files changed, 37 insertions, 0 deletions
diff --git a/challenge-134/abigail/lua/ch-1.lua b/challenge-134/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..1b0d219dce --- /dev/null +++ b/challenge-134/abigail/lua/ch-1.lua @@ -0,0 +1,13 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-1.lua +-- + +for _, tail in ipairs ({789, 798, 879, 897, 978}) do + print (1023456000 + tail) +end diff --git a/challenge-134/abigail/lua/ch-2.lua b/challenge-134/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..4ea5926b60 --- /dev/null +++ b/challenge-134/abigail/lua/ch-2.lua @@ -0,0 +1,24 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua < input-file +-- + +for line in io . lines () do + local _, _, m, n = line : find ("([0-9]+)%s+([0-9]+)") + local seen = {} + local count = 0 + for x = 1, m do + for y = 1, n do + if seen [x * y] == nil then + seen [x * y] = 1 + count = count + 1 + end + end + end + print (count) +end |