diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-07-06 01:04:10 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-07-06 01:04:10 +0100 |
| commit | c32b4142d67c14e17e71c6674989f28ed4c54e19 (patch) | |
| tree | 89407792b5af686663bf37bcb89de4a7d1e2c987 /challenge-119/stuart-little/lua/ch-2.lua | |
| parent | f8dd423c77ab9ead395a964bbecbf27639b09796 (diff) | |
| parent | 42d66b2a8f658f73c1c37d42248a86d760a11009 (diff) | |
| download | perlweeklychallenge-club-c32b4142d67c14e17e71c6674989f28ed4c54e19.tar.gz perlweeklychallenge-club-c32b4142d67c14e17e71c6674989f28ed4c54e19.tar.bz2 perlweeklychallenge-club-c32b4142d67c14e17e71c6674989f28ed4c54e19.zip | |
Merge pull request #4443 from stuart-little/stuart-little_119_lua
1st commit on 119_lua
Diffstat (limited to 'challenge-119/stuart-little/lua/ch-2.lua')
| -rwxr-xr-x | challenge-119/stuart-little/lua/ch-2.lua | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-119/stuart-little/lua/ch-2.lua b/challenge-119/stuart-little/lua/ch-2.lua new file mode 100755 index 0000000000..c10111e775 --- /dev/null +++ b/challenge-119/stuart-little/lua/ch-2.lua @@ -0,0 +1,18 @@ +#!/usr/bin/env lua + +-- run <script> <number> + +function nxt(s) + a,b=string.match(s:reverse(),"(3*)(.*)") + pre,threes=b:reverse(),a + if pre:len() ~= 0 then + return math.floor(pre+1) .. string.sub(string.rep("12",threes:len()),1,threes:len()) + end + return string.sub(string.rep("12",s:len()),1,s:len()+1) +end + +out="0" +for i=1,arg[1] do + out=nxt(out) +end +print(out) |
