diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-14 07:29:47 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-14 07:29:47 -0400 |
| commit | 3d2be7b010a125678fd91406f01778c535420521 (patch) | |
| tree | 13c01897e33fe65aa6e96ceff54b8f0ff1e00b6c /challenge-079/stuart-little/lua/ch-1.lua | |
| parent | 901b81596522cf6484b171dae81b92612a493124 (diff) | |
| download | perlweeklychallenge-club-3d2be7b010a125678fd91406f01778c535420521.tar.gz perlweeklychallenge-club-3d2be7b010a125678fd91406f01778c535420521.tar.bz2 perlweeklychallenge-club-3d2be7b010a125678fd91406f01778c535420521.zip | |
1st commit on 079_lua
Diffstat (limited to 'challenge-079/stuart-little/lua/ch-1.lua')
| -rwxr-xr-x | challenge-079/stuart-little/lua/ch-1.lua | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/challenge-079/stuart-little/lua/ch-1.lua b/challenge-079/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..ed17d5faac --- /dev/null +++ b/challenge-079/stuart-little/lua/ch-1.lua @@ -0,0 +1,13 @@ +#!/usr/bin/env lua + +-- run <script> <number> +-- https://oeis.org/A000788 + +function bitsUpTo(n) + if n <= 1 then return n end + local topBitPos = math.floor(math.log(n,2)) + local rest = n ~ 2^topBitPos + return 1+topBitPos*2^(topBitPos-1) + rest + bitsUpTo(rest) +end + +print(("%d"):format(bitsUpTo(tonumber(arg[1])))) |