aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorchirvasitua <chirvasitua@gmail.com>2021-07-13 17:23:45 -0400
committerchirvasitua <chirvasitua@gmail.com>2021-07-13 17:23:45 -0400
commitd76ed84ef4f923338dc685844519fe159da750e9 (patch)
tree70ae3fc7e2af0a30e54d33db022fdf09118af239
parent8aaf01aca53e04a17ff3ba35f18ee4195dc0c59f (diff)
downloadperlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.tar.gz
perlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.tar.bz2
perlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.zip
1st commit on 078_lua
-rwxr-xr-xchallenge-078/stuart-little/lua/ch-1.lua13
-rwxr-xr-xchallenge-078/stuart-little/lua/ch-2.lua16
2 files changed, 29 insertions, 0 deletions
diff --git a/challenge-078/stuart-little/lua/ch-1.lua b/challenge-078/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..1b76fe7c70
--- /dev/null
+++ b/challenge-078/stuart-little/lua/ch-1.lua
@@ -0,0 +1,13 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers>
+
+local mx = tonumber(arg[#arg])
+local out = {mx}
+for i=#arg-1,1,-1 do
+ if tonumber(arg[i]) > mx then
+ mx = tonumber(arg[i])
+ table.insert(out,1,mx)
+ end
+end
+print(table.unpack(out))
diff --git a/challenge-078/stuart-little/lua/ch-2.lua b/challenge-078/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..fd09ac713c
--- /dev/null
+++ b/challenge-078/stuart-little/lua/ch-2.lua
@@ -0,0 +1,16 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated array entries, then ' - ', then space-separated rotation indices>
+
+local nrs = {}
+while (tonumber(arg[1])) do
+ table.insert(nrs,tonumber(arg[1]))
+ table.remove(arg,1)
+end
+table.remove(arg,1)
+for _,v in ipairs(arg) do
+ local vv = (v-1)%#nrs+1
+ local s=table.pack(table.unpack(nrs,vv+1))
+ for i=1,vv do table.insert(s,nrs[i]) end
+ print(table.unpack(s))
+end