diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-13 17:23:45 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-13 17:23:45 -0400 |
| commit | d76ed84ef4f923338dc685844519fe159da750e9 (patch) | |
| tree | 70ae3fc7e2af0a30e54d33db022fdf09118af239 | |
| parent | 8aaf01aca53e04a17ff3ba35f18ee4195dc0c59f (diff) | |
| download | perlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.tar.gz perlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.tar.bz2 perlweeklychallenge-club-d76ed84ef4f923338dc685844519fe159da750e9.zip | |
1st commit on 078_lua
| -rwxr-xr-x | challenge-078/stuart-little/lua/ch-1.lua | 13 | ||||
| -rwxr-xr-x | challenge-078/stuart-little/lua/ch-2.lua | 16 |
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 |
