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

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-089/stuart-little/lua/ch-1.lua b/challenge-089/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..2bfb91aee6
--- /dev/null
+++ b/challenge-089/stuart-little/lua/ch-1.lua
@@ -0,0 +1,17 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function gcd(a,b)
+   local lg,sml = math.max(math.abs(a),math.abs(b)),math.min(math.abs(a),math.abs(b))
+   if sml==0 then return lg end
+   return gcd(sml,lg%sml)
+end
+
+local sm=0
+for i=1,arg[1]-1 do
+   for j=i+1,arg[1] do
+      sm=sm+gcd(i,j)
+   end
+end
+print(sm)