From 81465123f99e4ef5f088a4fb8fab6678723c8d49 Mon Sep 17 00:00:00 2001
From: chirvasitua <chirvasitua@gmail.com>
Date: Thu, 15 Jul 2021 14:30:05 -0400
Subject: 1st commit on 100_lua

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

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

diff --git a/challenge-100/stuart-little/lua/ch-2.lua b/challenge-100/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..0f47095561
--- /dev/null
+++ b/challenge-100/stuart-little/lua/ch-2.lua
@@ -0,0 +1,39 @@
+#!/usr/bin/env lua
+
+--[[
+run <script> <file containing triangle>
+
+for instance, copy
+
+            1
+           2 4
+          6 4 9
+         5 1 7 2
+
+to a text file and pass that file's path
+--]]
+
+function clps(state,row)
+   local newS={}
+   for k,v in ipairs(row) do
+      local val=v+((state[k] and state[k-1] and math.min(tonumber(state[k]),tonumber(state[k-1]))) or state[k] or state[k-1] or 0)
+      table.insert(newS,val)
+   end
+   return newS
+end
+
+local state={}
+local tr={}
+for l in io.lines(arg[1]) do
+   if l:find("%d") then
+      local row={}
+      for num in l:gmatch("-?%d+") do table.insert(row,num) end
+      table.insert(tr,row)
+   end
+end
+
+for _,v in ipairs(tr) do
+   state=clps(state,v)
+end
+
+print((#state > 0) and math.min(table.unpack(state)) or 0)
-- 
cgit