diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-05-23 16:59:39 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-23 16:59:39 +0100 |
| commit | 64d90deae0b1c6e8fe708937f775f0975f138a4f (patch) | |
| tree | cf2877cafb333f34246a86a5ab81a0abd8d07899 /challenge-113/abigail/lua/ch-2.lua | |
| parent | d03259c86c349e8efbbd6622dfdfcaa3c5f527f2 (diff) | |
| parent | 1ab38e5de2d0bbab588c411e7764653217a9fc84 (diff) | |
| download | perlweeklychallenge-club-64d90deae0b1c6e8fe708937f775f0975f138a4f.tar.gz perlweeklychallenge-club-64d90deae0b1c6e8fe708937f775f0975f138a4f.tar.bz2 perlweeklychallenge-club-64d90deae0b1c6e8fe708937f775f0975f138a4f.zip | |
Merge pull request #4120 from Abigail/abigail/week-113
Abigail/week 113
Diffstat (limited to 'challenge-113/abigail/lua/ch-2.lua')
| -rw-r--r-- | challenge-113/abigail/lua/ch-2.lua | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/challenge-113/abigail/lua/ch-2.lua b/challenge-113/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..5ba4c04ed9 --- /dev/null +++ b/challenge-113/abigail/lua/ch-2.lua @@ -0,0 +1,25 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua < input-file +-- + +for line in io . lines () do + local sum = 0 + for n in line : gmatch ("-?[0-9]+") + do sum = sum + tonumber (n) + end + local c = 0 + for n in line : gmatch ("-?[0-9]+") + do if c > 0 + then io . write (" ") + end + c = c + 1 + io . write (sum - tonumber (n)) + end + io . write ("\n") +end |