diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-16 17:52:36 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-16 17:52:36 -0400 |
| commit | a66637f07937337ae048b18a4c8beadf4a82e887 (patch) | |
| tree | db08427e6c7bfb0083ef0e881a9f40679a4024fd /challenge-072/stuart-little/lua/ch-1.lua | |
| parent | 1eec60b6cab6562a5eef76a369c0abe704d45f82 (diff) | |
| download | perlweeklychallenge-club-a66637f07937337ae048b18a4c8beadf4a82e887.tar.gz perlweeklychallenge-club-a66637f07937337ae048b18a4c8beadf4a82e887.tar.bz2 perlweeklychallenge-club-a66637f07937337ae048b18a4c8beadf4a82e887.zip | |
1st commit on 072_lua
Diffstat (limited to 'challenge-072/stuart-little/lua/ch-1.lua')
| -rwxr-xr-x | challenge-072/stuart-little/lua/ch-1.lua | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/challenge-072/stuart-little/lua/ch-1.lua b/challenge-072/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..0515cf6461 --- /dev/null +++ b/challenge-072/stuart-little/lua/ch-1.lua @@ -0,0 +1,14 @@ +#!/usr/bin/env lua + +-- run <script> <number> + +function factExp(n,p) + local s,frct=0,n/p + while frct >= 1 do + s=s+math.floor(frct) + frct=frct/p + end + return s +end + +print(math.min(factExp(arg[1],2),factExp(arg[1],5))) |