diff options
| author | Abigail <abigail@abigail.be> | 2021-04-26 20:13:19 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-04-26 20:13:19 +0200 |
| commit | 10299a50f27926fb893c8c1d8d625426e77eed79 (patch) | |
| tree | 004578e3eb578f55afd97044f0d184f4e98619c3 /challenge-110/abigail/lua | |
| parent | dcffd6cda3d9bbf3815cf68f1c938a65dee82f4e (diff) | |
| download | perlweeklychallenge-club-10299a50f27926fb893c8c1d8d625426e77eed79.tar.gz perlweeklychallenge-club-10299a50f27926fb893c8c1d8d625426e77eed79.tar.bz2 perlweeklychallenge-club-10299a50f27926fb893c8c1d8d625426e77eed79.zip | |
Lua solution for week 110, part 1
Diffstat (limited to 'challenge-110/abigail/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 |