Luhn test of credit card numbers: Difference between revisions
Content added Content deleted
(Add bruijn) |
m (→{{header|RPL}}: typo) |
||
Line 5,706: | Line 5,706: | ||
≪ → card |
≪ → card |
||
≪ 0 card SIZE 1 '''FOR''' j |
≪ 0 card SIZE 1 '''FOR''' j |
||
card j DUP SUB |
card j DUP SUB STR→ |
||
'''IF''' j 2 MOD NOT '''THEN ''' |
'''IF''' j 2 MOD NOT '''THEN ''' |
||
2 * 10 MOD LAST / FLOOR + '''END''' |
2 * 10 MOD LAST / FLOOR + '''END''' |