diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-13 19:07:41 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-13 19:07:41 -0400 |
| commit | e0e7fb624169e117aed81df17e5ef4182b1a2a84 (patch) | |
| tree | 20d1f300f2d3087ebc3486e754907c3d38be1619 | |
| parent | 8aaf01aca53e04a17ff3ba35f18ee4195dc0c59f (diff) | |
| download | perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.gz perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.tar.bz2 perlweeklychallenge-club-e0e7fb624169e117aed81df17e5ef4182b1a2a84.zip | |
1st commit on 082_lua
| -rwxr-xr-x | challenge-082/stuart-little/lua/ch-1.lua | 7 | ||||
| -rwxr-xr-x | challenge-082/stuart-little/lua/ch-2.lua | 11 |
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) |
