diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-05-23 12:11:39 -0500 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-05-23 12:11:39 -0500 |
| commit | af750f6fd9ce9389bd6c12b3aa92fb062451b813 (patch) | |
| tree | cbe4da14753c7ce57101773e0db98db7785ac890 /challenge-113/abigail/lua/ch-2.lua | |
| parent | 088dbd3dc9664b07cdf8ab0872c68a903438a0e0 (diff) | |
| parent | 03eb3fa7435d497e68348362885148da5298156e (diff) | |
| download | perlweeklychallenge-club-af750f6fd9ce9389bd6c12b3aa92fb062451b813.tar.gz perlweeklychallenge-club-af750f6fd9ce9389bd6c12b3aa92fb062451b813.tar.bz2 perlweeklychallenge-club-af750f6fd9ce9389bd6c12b3aa92fb062451b813.zip | |
Merge branch 'master' of github.com:manwar/perlweeklychallenge-club into challenges
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 |