Merge branch 'master' of github.com:manwar/perlweeklychallenge-club into challenges

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-072/stuart-little/lua/ch-2.lua b/challenge-072/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..9c7d4bb302
--- /dev/null
+++ b/challenge-072/stuart-little/lua/ch-2.lua
@@ -0,0 +1,16 @@
+#!/usr/bin/env lua
+
+-- run <script> <file 1st-line-nr 2nd-line-nr>
+
+function lnRng(pth,l1,l2)
+   local ix,lns=0,{}
+   for l in io.lines(pth) do
+      ix=ix+1
+      if ix>=l1 and ix<=l2 then table.insert(lns,l) end
+   end
+   return lns
+end
+
+for _,l in ipairs(lnRng(arg[1],tonumber(arg[2]),tonumber(arg[3]))) do
+   print(l)
+end