Luhn test of credit card numbers: Difference between revisions
m
→{{header|SNOBOL4}}
(→{{header|SNOBOL4}}: Eliminate use of `eval`, make output clearer.) |
|||
Line 5,157:
ln3 luhn = 0; luhn = eq(remdr(sum,10),0) 1 :(return)
luhn_end
ok = array('0:1')
ok<0> = 'FAIL'
Line 5,165 ⟶ 5,166:
test output = n ': ' ok<luhn(n)> :(return)
test_end
test('49927398716')
test('49927398717')
| |||