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

2 files changed, 20 insertions, 0 deletions

diff --git a/challenge-090/stuart-little/lua/ch-1.lua b/challenge-090/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..460d922fb9
--- /dev/null
+++ b/challenge-090/stuart-little/lua/ch-1.lua
@@ -0,0 +1,5 @@
+#!/usr/bin/env lua
+
+-- run <script> <string>
+
+print(arg[1]:upper():gsub(".",{A='T',T='A',C='G',G='C'}))
diff --git a/challenge-090/stuart-little/lua/ch-2.lua b/challenge-090/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..8628da786a
--- /dev/null
+++ b/challenge-090/stuart-little/lua/ch-2.lua
@@ -0,0 +1,15 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers>
+
+function egMult(a,b)
+   local l,r,p=math.min(a,b),math.max(a,b),0
+   while l>0 do
+      if l%2==1 then p=p+r end
+      l=math.floor(l/2)
+      r=r*2
+   end
+   return p
+end
+
+print(("%d"):format(egMult(0+arg[1],0+arg[2])))