aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorchirvasitua <chirvasitua@gmail.com>2021-07-11 22:04:02 -0400
committerchirvasitua <chirvasitua@gmail.com>2021-07-12 11:17:58 -0400
commit062fc3ee0b5b2c3966cbdf91b134f8b7c85518dc (patch)
tree8f8dae72a0d755e029758fafbf60baf794a60aaf
parent2aaa200ead25d6ba79563871647c6c4abcf41c65 (diff)
downloadperlweeklychallenge-club-062fc3ee0b5b2c3966cbdf91b134f8b7c85518dc.tar.gz
perlweeklychallenge-club-062fc3ee0b5b2c3966cbdf91b134f8b7c85518dc.tar.bz2
perlweeklychallenge-club-062fc3ee0b5b2c3966cbdf91b134f8b7c85518dc.zip
1st commit on 091_lua
-rwxr-xr-xchallenge-091/stuart-little/lua/ch-1.lua17
-rwxr-xr-xchallenge-091/stuart-little/lua/ch-2.lua16
2 files changed, 33 insertions, 0 deletions
diff --git a/challenge-091/stuart-little/lua/ch-1.lua b/challenge-091/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..ed15a0fdd5
--- /dev/null
+++ b/challenge-091/stuart-little/lua/ch-1.lua
@@ -0,0 +1,17 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+local nr,state=0,arg[1]:sub(1,1)
+local out = ""
+
+for i=1,arg[1]:len()+1 do
+ if arg[1]:sub(i,i) ~= state then
+ out = out .. nr .. state
+ nr=0
+ state=arg[1]:sub(i,i)
+ end
+ nr=nr+1
+end
+
+print(out)
diff --git a/challenge-091/stuart-little/lua/ch-2.lua b/challenge-091/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..dc13984d19
--- /dev/null
+++ b/challenge-091/stuart-little/lua/ch-2.lua
@@ -0,0 +1,16 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers>
+
+local nr=1
+while true do
+ nr=nr+arg[nr]
+ if arg[nr] == nil then
+ print(1)
+ os.exit()
+ end
+ if tonumber(arg[nr])==0 then
+ print(0)
+ os.exit()
+ end
+end