diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-11 08:07:29 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-11 08:07:29 -0400 |
| commit | 2aaa200ead25d6ba79563871647c6c4abcf41c65 (patch) | |
| tree | 2ed92162caf074777fa34ef7c07f8fef73fa90ea /challenge-090 | |
| parent | d574a03f56667d520e97a203be69b227c0adf9ab (diff) | |
| download | perlweeklychallenge-club-2aaa200ead25d6ba79563871647c6c4abcf41c65.tar.gz perlweeklychallenge-club-2aaa200ead25d6ba79563871647c6c4abcf41c65.tar.bz2 perlweeklychallenge-club-2aaa200ead25d6ba79563871647c6c4abcf41c65.zip | |
1st commit on 089,090_lua
Diffstat (limited to 'challenge-090')
| -rwxr-xr-x | challenge-090/stuart-little/lua/ch-1.lua | 5 | ||||
| -rwxr-xr-x | challenge-090/stuart-little/lua/ch-2.lua | 15 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-090/stuart-little/lua/ch-1.lua b/challenge-090/stuart-little/lua/ch-1.lua new file mode 100755 index 0000000000..460d922fb9 --- /dev/null +++ b/challenge-090/stuart-little/lua/ch-1.lua @@ -0,0 +1,5 @@ +#!/usr/bin/env lua + +-- run <script> <string> + +print(arg[1]:upper():gsub(".",{A='T',T='A',C='G',G='C'})) diff --git a/challenge-090/stuart-little/lua/ch-2.lua b/challenge-090/stuart-little/lua/ch-2.lua new file mode 100755 index 0000000000..8628da786a --- /dev/null +++ b/challenge-090/stuart-little/lua/ch-2.lua @@ -0,0 +1,15 @@ +#!/usr/bin/env lua + +-- run <script> <space-separated numbers> + +function egMult(a,b) + local l,r,p=math.min(a,b),math.max(a,b),0 + while l>0 do + if l%2==1 then p=p+r end + l=math.floor(l/2) + r=r*2 + end + return p +end + +print(("%d"):format(egMult(0+arg[1],0+arg[2]))) |
