diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-08-17 07:05:55 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-08-17 07:05:55 +0100 |
| commit | 4d0e40e2e8bca3ca4c5905575d8ff253642ccdeb (patch) | |
| tree | eb92c13f2f5a7c23958bc40de8103657e26dcc89 /challenge-126/stuart-little/lua/ch-1.lua | |
| parent | 762eb5d20f41a5e64deb412ab997b91017c24b51 (diff) | |
| parent | 4609aa731a7beb5547cbd4707041a6cad8c446a5 (diff) | |
| download | perlweeklychallenge-club-4d0e40e2e8bca3ca4c5905575d8ff253642ccdeb.tar.gz perlweeklychallenge-club-4d0e40e2e8bca3ca4c5905575d8ff253642ccdeb.tar.bz2 perlweeklychallenge-club-4d0e40e2e8bca3ca4c5905575d8ff253642ccdeb.zip | |
Merge pull request #4733 from stuart-little/stuart-little_126_lua
1st commit on 126_lua
Diffstat (limited to 'challenge-126/stuart-little/lua/ch-1.lua')
| -rwxr-xr-x | challenge-126/stuart-little/lua/ch-1.lua | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-126/stuart-little/lua/ch-1.lua b/challenge-126/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..031196b56e --- /dev/null +++ b/challenge-126/stuart-little/lua/ch-1.lua @@ -0,0 +1,11 @@ +#!/usr/bin/env lua + +-- run <script> <number> + +function no1(nr) + if (nr:len() == 0) then return 0 end + if (nr:sub(1,1) == '1') then return 9^(nr:len()-1) end + return (tonumber(nr:sub(0,1))-1) * 9^(nr:len()-1) + no1(nr:sub(2)) +end + +print((not arg[1]:find('1')) and math.floor(no1(arg[1])) or math.floor(no1(arg[1])-1)) |