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

2 files changed, 29 insertions, 0 deletions

diff --git a/challenge-114/stuart-little/lua/ch-1.lua b/challenge-114/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..f507160ecd
--- /dev/null
+++ b/challenge-114/stuart-little/lua/ch-1.lua
@@ -0,0 +1,16 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function reflect(st,bt)
+   return (bt==1) and (st .. st:sub(1,st:len()-1):reverse()) or (st .. st:reverse())
+end
+
+if arg[1]:match("^9+$") then
+   print(1 .. ("0"):rep(arg[1]:len()-1) .. 1)
+   os.exit()
+end
+
+l = arg[1]:len()
+hlf1 = arg[1]:sub(1,math.ceil(l/2))
+print((reflect(hlf1,l%2) > arg[1]) and reflect(hlf1,l%2) or reflect(("%d"):format(hlf1+1),l%2))
diff --git a/challenge-114/stuart-little/lua/ch-2.lua b/challenge-114/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..ebafcb5d9e
--- /dev/null
+++ b/challenge-114/stuart-little/lua/ch-2.lua
@@ -0,0 +1,13 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+inpt = arg[1]
+t={[0]=0,[1]=0}
+
+while (inpt & 3 ~= 1) do
+   t[inpt%2] = t[inpt%2] + 1
+   inpt = inpt >> 1
+end
+
+print(("%d"):format((inpt+1)*2^(t[0]+t[1]) + 2^(t[1])-1))