diff options
| author | Dave Jacoby <jacoby.david@gmail.com> | 2021-08-18 15:07:49 -0400 |
|---|---|---|
| committer | Dave Jacoby <jacoby.david@gmail.com> | 2021-08-18 15:07:49 -0400 |
| commit | 710837b2a38b5fbd4404f8d9be06ef368af0d366 (patch) | |
| tree | 8796e6c6c7be4f7f935e68f3f0bff99bed04eb57 /challenge-126/stuart-little/lua/ch-1.lua | |
| parent | 637f7bbeceeaf4a26e1e6ecba8c6fcb308790bb3 (diff) | |
| parent | 73470591f10490d6385145990c49825266f80b2b (diff) | |
| download | perlweeklychallenge-club-710837b2a38b5fbd4404f8d9be06ef368af0d366.tar.gz perlweeklychallenge-club-710837b2a38b5fbd4404f8d9be06ef368af0d366.tar.bz2 perlweeklychallenge-club-710837b2a38b5fbd4404f8d9be06ef368af0d366.zip | |
Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club
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)) |