aboutsummaryrefslogtreecommitdiff
path: root/challenge-082/stuart-little/lua/ch-2.lua
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 /challenge-082/stuart-little/lua/ch-2.lua
parent8aaf01aca53e04a17ff3ba35f18ee4195dc0c59f (diff)
downloadperlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.gz
perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.bz2
perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.zip
1st commit on 082_lua
Diffstat (limited to 'challenge-082/stuart-little/lua/ch-2.lua')
-rwxr-xr-xchallenge-082/stuart-little/lua/ch-2.lua11
1 files changed, 11 insertions, 0 deletions
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)