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

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-119/stuart-little/lua/ch-1.lua b/challenge-119/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..ef9a6daa31
--- /dev/null
+++ b/challenge-119/stuart-little/lua/ch-1.lua
@@ -0,0 +1,5 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+print((arg[1] & 15)*16 + (arg[1] >> 4 & 15))
diff --git a/challenge-119/stuart-little/lua/ch-2.lua b/challenge-119/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..c10111e775
--- /dev/null
+++ b/challenge-119/stuart-little/lua/ch-2.lua
@@ -0,0 +1,18 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function nxt(s)
+   a,b=string.match(s:reverse(),"(3*)(.*)")
+   pre,threes=b:reverse(),a
+   if pre:len() ~= 0 then
+      return math.floor(pre+1) .. string.sub(string.rep("12",threes:len()),1,threes:len())
+   end
+   return string.sub(string.rep("12",s:len()),1,s:len()+1)
+end
+
+out="0"
+for i=1,arg[1] do
+   out=nxt(out)
+end
+print(out)