diff options
| author | Abigail <abigail@abigail.be> | 2021-10-18 23:44:35 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-10-18 23:44:35 +0200 |
| commit | 6fbe2f4e31051b2ecc881d9f476c61fe08b5b43b (patch) | |
| tree | 85e721fa420e7727450139b551e6320a15a9e1fc /challenge-135/abigail/lua/ch-2.lua | |
| parent | e87959f9cfc997d0b9c5e8c17293797aaaba8915 (diff) | |
| download | perlweeklychallenge-club-6fbe2f4e31051b2ecc881d9f476c61fe08b5b43b.tar.gz perlweeklychallenge-club-6fbe2f4e31051b2ecc881d9f476c61fe08b5b43b.tar.bz2 perlweeklychallenge-club-6fbe2f4e31051b2ecc881d9f476c61fe08b5b43b.zip | |
Lua solutions for week 135
Diffstat (limited to 'challenge-135/abigail/lua/ch-2.lua')
| -rw-r--r-- | challenge-135/abigail/lua/ch-2.lua | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/challenge-135/abigail/lua/ch-2.lua b/challenge-135/abigail/lua/ch-2.lua new file mode 100644 index 0000000000..e6b70b2830 --- /dev/null +++ b/challenge-135/abigail/lua/ch-2.lua @@ -0,0 +1,31 @@ +#!/opt/local/bin/lua + +-- +-- See ../README.md +-- + +-- +-- Run as: lua ch-2.lua < input-file +-- + +local w = {1, 3, 1, 7, 3, 9, 1} + +for line in io . lines () do + if line : find ("^[0-9BCDFGHJKLMNPQRSTVWXYZ]*$") then + local check = 0 + for i = 1, 7 do + local byte = string . byte (line : sub (i, i)) + if byte <= string . byte ("9") + then byte = byte - string . byte ("0") + else byte = byte - string . byte ("A") + 10 + end + check = check + w [i] * byte + end + if check % 10 == 0 + then print (1) + else print (0) + end + else + print (0) + end +end |