diff options
| author | 冯昶 <seaker@qq.com> | 2021-03-15 18:18:09 +0800 |
|---|---|---|
| committer | 冯昶 <seaker@qq.com> | 2021-03-15 18:18:09 +0800 |
| commit | 5ed25077fde85262036c9db3e893d70ae0907b5c (patch) | |
| tree | 8932d25b3fa6076e2d91ab2a331d4d8bfff20544 /challenge-090/paulo-custodio/lua/ch-2.lua | |
| parent | 8b6be37fe4dac8b4c6489a95e55514b76b298d15 (diff) | |
| parent | 65d54d52500028ec5359a7d39619803ade281543 (diff) | |
| download | perlweeklychallenge-club-5ed25077fde85262036c9db3e893d70ae0907b5c.tar.gz perlweeklychallenge-club-5ed25077fde85262036c9db3e893d70ae0907b5c.tar.bz2 perlweeklychallenge-club-5ed25077fde85262036c9db3e893d70ae0907b5c.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-090/paulo-custodio/lua/ch-2.lua')
| -rw-r--r-- | challenge-090/paulo-custodio/lua/ch-2.lua | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-090/paulo-custodio/lua/ch-2.lua b/challenge-090/paulo-custodio/lua/ch-2.lua new file mode 100644 index 0000000000..d9e54b052f --- /dev/null +++ b/challenge-090/paulo-custodio/lua/ch-2.lua @@ -0,0 +1,28 @@ +#!/usr/bin/env lua + +--[[ +Challenge 090 + +TASK #2 > Ethiopian Multiplication +Submitted by: Mohammad S Anwar +You are given two positive numbers $a and $b. + +Write a script to demonstrate Ethiopian Multiplication using the given numbers. +--]] + +function mul(a, b) + local m = 0 + while (true) do + if ((a & 1) ~= 0) then + m = m + b + end + if (a <= 1) then + break + end + a = a >> 1 + b = b << 1 + end + return m +end + +io.write(mul(tonumber(arg[1]), tonumber(arg[2])), "\n") |