diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-07-18 18:30:11 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-07-18 18:30:11 +0100 |
| commit | c776d5869239f18013d99cdcd6bc91da1dee6d99 (patch) | |
| tree | e47f9f1558a6718a1e371520a67a6c0864f7c8d3 /challenge-121/abigail/lua/ch-1.lua | |
| parent | 1857a19609bd20d84e86e446c37516a06cad20d0 (diff) | |
| parent | 298efeceb150a2921d14b26920b821ccbea477bf (diff) | |
| download | perlweeklychallenge-club-c776d5869239f18013d99cdcd6bc91da1dee6d99.tar.gz perlweeklychallenge-club-c776d5869239f18013d99cdcd6bc91da1dee6d99.tar.bz2 perlweeklychallenge-club-c776d5869239f18013d99cdcd6bc91da1dee6d99.zip | |
Merge pull request #4548 from Abigail/abigail/week-121
Abigail/week 121
Diffstat (limited to 'challenge-121/abigail/lua/ch-1.lua')
| -rw-r--r-- | challenge-121/abigail/lua/ch-1.lua | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-121/abigail/lua/ch-1.lua b/challenge-121/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..52b7529007 --- /dev/null +++ b/challenge-121/abigail/lua/ch-1.lua @@ -0,0 +1,23 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-1.lua < input-file +-- + +for line in io . lines () do + _, _, m, n = line : find ("(%d+)%s+(%d+)") + x = 1 + for i = 1, n - 1 do + x = x * 2 + end + if math . floor (m / x) % 2 == 1 then + m = m - x + else + m = m + x + end + print (m) +end |