From 4609aa731a7beb5547cbd4707041a6cad8c446a5 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 16 Aug 2021 20:21:14 -0400
Subject: 1st commit on 126_lua

---
 challenge-126/stuart-little/lua/ch-2.lua | 43 ++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100755 challenge-126/stuart-little/lua/ch-2.lua

(limited to 'challenge-126/stuart-little/lua/ch-2.lua')

diff --git a/challenge-126/stuart-little/lua/ch-2.lua b/challenge-126/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..bdbfdf1451
--- /dev/null
+++ b/challenge-126/stuart-little/lua/ch-2.lua
@@ -0,0 +1,43 @@
+#!/usr/bin/env lua
+
+-- run <script>
+
+function nbrs(mat,i,j)
+   local t={}
+   for _,x in ipairs({-1,0,1}) do
+      for _,y in ipairs({-1,0,1}) do
+	 if ((x ~= 0 or y ~= 0) and 1 <= i+x and i+x <= #mat and 1 <= j+y and j+y <= #(mat[1])) then table.insert(t,{i+x,j+y}) end	    
+      end
+   end
+   return t
+end
+
+local inptStr=[[x * * * x * x x x x
+* * * * * * * * * x
+* * * * x * x * x *
+* * * x x * * * * *
+x * * * x * * * * x
+]]
+
+local inpt={}
+for ln in inptStr:gmatch("([^\n]+)") do
+   local lnTab = {}
+   for chr in ln:gmatch("([^%s]+)") do table.insert(lnTab,chr) end
+   table.insert(inpt,lnTab)
+end
+
+for i=1,#inpt do
+   local ln=""
+   for j=1,#(inpt[1]) do
+      if inpt[i][j] == 'x' then
+	 ln = ln .. 'x' .. ' '
+      else
+	 local nr=0
+	 for _,v in ipairs(nbrs(inpt,i,j)) do
+	    if inpt[v[1]][v[2]] == 'x' then nr = nr + 1 end
+	 end
+	 ln = ln .. tostring(nr) .. " "
+      end
+   end
+   print(ln)
+end
-- 
cgit