23 lines
874 B
Lua
23 lines
874 B
Lua
#!/usr/bin/lua
|
|
luhn = require "luhn"
|
|
|
|
if #arg ~= 0 then
|
|
local a = tonumber(arg[1]) -- 7992739871
|
|
print("check digit: " .. luhn:compute_check_digit(a))
|
|
end
|
|
|
|
local function bool_str(bool)
|
|
return bool and "yes" or "no"
|
|
end
|
|
|
|
print("49927398716: " .. bool_str(luhn:validate_check_digit(49927398716)))
|
|
print("49927398717: " .. bool_str(luhn:validate_check_digit(49927398717)))
|
|
print("1234567812345678: " .. bool_str(luhn:validate_check_digit(1234567812345678)))
|
|
print("1234567812345670: " .. bool_str(luhn:validate_check_digit(1234567812345670)))
|
|
|
|
print("\ncheck digits:")
|
|
print("4992739871: " .. luhn:compute_check_digit(4992739871))
|
|
print("4992739871: " .. luhn:compute_check_digit(4992739871))
|
|
print("123456781234567: " .. luhn:compute_check_digit(123456781234567))
|
|
print("123456781234567: " .. luhn:compute_check_digit(123456781234567))
|
|
print(luhn:make_number(4992739871))
|