Luhn test of credit card numbers: Difference between revisions
→{{header|SNOBOL4}}: Eliminate use of `eval`, make output clearer.
(→{{header|jq}}: versions) |
(→{{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'
ok<1> = 'OK'
*
define('test
test output
test_end
end</lang>▼
end
{{out}}
<pre>
49927398717: FAIL
1234567812345678: FAIL
▲0: 1234567812345678
1234567812345670: OK</pre>
▲1: 1234567812345670</pre>
=={{header|SPARK}}==
| |||