diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-05-01 01:10:18 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-01 01:10:18 +0100 |
| commit | c86d7cc3cf9f5b4c51d2e6fd99384729a8166418 (patch) | |
| tree | a8b099562494a78a1aa82ed74c73a40205603a0c /challenge-110/abigail/lua/ch-1.lua | |
| parent | 111ea37f028e65705520d21e13dcb2735a33ad8a (diff) | |
| parent | 8bcf6551730487cf51398a844b726d6fed93f647 (diff) | |
| download | perlweeklychallenge-club-c86d7cc3cf9f5b4c51d2e6fd99384729a8166418.tar.gz perlweeklychallenge-club-c86d7cc3cf9f5b4c51d2e6fd99384729a8166418.tar.bz2 perlweeklychallenge-club-c86d7cc3cf9f5b4c51d2e6fd99384729a8166418.zip | |
Merge pull request #3983 from Abigail/abigail/week-110
Abigail/week 110
Diffstat (limited to 'challenge-110/abigail/lua/ch-1.lua')
| -rw-r--r-- | challenge-110/abigail/lua/ch-1.lua | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/challenge-110/abigail/lua/ch-1.lua b/challenge-110/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..a118074744 --- /dev/null +++ b/challenge-110/abigail/lua/ch-1.lua @@ -0,0 +1,24 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-1.lua < input-file +-- + +for line in io . lines () do + local number = line : gsub (" ", "") -- Remove spaces + if -- nnnn nnnnnnnnnn + number : find ("^[0-9][0-9][0-9][0-9][0-9][0-9][0-9]" .. + "[0-9][0-9][0-9][0-9][0-9][0-9][0-9]$") or + -- +nn nnnnnnnnnn + number : find ("^%+[0-9][0-9][0-9][0-9][0-9]" .. + "[0-9][0-9][0-9][0-9][0-9][0-9][0-9]$") or + -- (nn) nnnnnnnnnn + number : find ("^%([0-9][0-9]%)[0-9][0-9][0-9]" .. + "[0-9][0-9][0-9][0-9][0-9][0-9][0-9]$") + then print (line) + end +end |