aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorchirvasitua <chirvasitua@gmail.com>2021-07-13 19:07:41 -0400
committerchirvasitua <chirvasitua@gmail.com>2021-07-13 19:07:41 -0400
commite0e7fb624169e117aed81df17e5ef4182b1a2a84 (patch)
tree20d1f300f2d3087ebc3486e754907c3d38be1619
parent8aaf01aca53e04a17ff3ba35f18ee4195dc0c59f (diff)
downloadperlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.gz
perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.bz2
perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.zip
1st commit on 082_lua
-rwxr-xr-xchallenge-082/stuart-little/lua/ch-1.lua7
-rwxr-xr-xchallenge-082/stuart-little/lua/ch-2.lua11
2 files changed, 18 insertions, 0 deletions
diff --git a/challenge-082/stuart-little/lua/ch-1.lua b/challenge-082/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..5671895075
--- /dev/null
+++ b/challenge-082/stuart-little/lua/ch-1.lua
@@ -0,0 +1,7 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers>
+
+for i=1,math.min(tonumber(arg[1]),tonumber(arg[2])) do
+ if (tonumber(arg[1]) % i == 0) and (tonumber(arg[2]) % i == 0) then print(i) end
+end
diff --git a/challenge-082/stuart-little/lua/ch-2.lua b/challenge-082/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..07b1a448f6
--- /dev/null
+++ b/challenge-082/stuart-little/lua/ch-2.lua
@@ -0,0 +1,11 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated strings, with the target string last>
+
+function canInterleave(a,b,c)
+ if math.max(a:len(),b:len(),c:len()) == 0 then return true end
+ if a:sub(1,1) == c:sub(1,1) then return canInterleave(a:sub(2),b,c:sub(2)) end
+ if b:sub(1,1) == c:sub(1,1) then return canInterleave(a,b:sub(2),c:sub(2)) end
+ return false
+end
+print(canInterleave(table.unpack(arg,1,3)) and 1 or 0)