diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2021-07-12 10:48:31 -0400 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2021-07-12 10:48:31 -0400 |
| commit | 34a6514808c066bee4e7f3d7d8bdeb67db056392 (patch) | |
| tree | 05d0e268045ef3d6f971ec0e0c3eb1a48bdb7edd /challenge-117/stuart-little/lua/ch-1.lua | |
| parent | b59f8f4008bb8ec491a9e89f097f04ce54aed4c0 (diff) | |
| parent | 1aa7b6eaba2a58fc1ef0612373e3aed6b61f345d (diff) | |
| download | perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.tar.gz perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.tar.bz2 perlweeklychallenge-club-34a6514808c066bee4e7f3d7d8bdeb67db056392.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
Diffstat (limited to 'challenge-117/stuart-little/lua/ch-1.lua')
| -rwxr-xr-x | challenge-117/stuart-little/lua/ch-1.lua | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-117/stuart-little/lua/ch-1.lua b/challenge-117/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..790f7332ca --- /dev/null +++ b/challenge-117/stuart-little/lua/ch-1.lua @@ -0,0 +1,11 @@ +#!/usr/bin/env lua + +-- run <script> <path-to-file> + +sm,nrln=0,0 +for ln in io.lines(arg[1]) do + nr = ln:match("[^%d]*(%d+)") + sm = sm + nr + nrln = nrln+1 +end +print(("%d"):format((nrln+1)*(nrln+2)/2 - sm)) |