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

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-083/tyler-wardhaugh/lua/ch-1.lua b/challenge-083/tyler-wardhaugh/lua/ch-1.lua
new file mode 100755
index 0000000000..cb4f35d915
--- /dev/null
+++ b/challenge-083/tyler-wardhaugh/lua/ch-1.lua
@@ -0,0 +1,20 @@
+#!/usr/bin/env lua
+
+local t1 = {}
+
+function t1.inner_words_length(s)
+  local inner = s:match("^%S+%s+%f[%S](.*)%f[%s]%s+%S+$")
+  if inner then
+    return inner:gsub("%s+", ""):len()
+  else
+    return 0
+  end
+end
+
+function t1.run(args)
+  local s = args[1]
+  local len = t1.inner_words_length(s)
+  print(len)
+end
+
+return t1