Luhn test of credit card numbers: Difference between revisions
m
→{{header|langur}}
m (→{{header|RPL}}: typo) |
Langurmonkey (talk | contribs) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 3,922:
=={{header|langur}}==
{{trans|Go}}
<syntaxhighlight lang="langur">val .luhntest =
val .t = [0, 2, 4, 6, 8, 1, 3, 5, 7, 9]
val .numbers = s2n .s
Line 3,932:
}
val .tests =
"49927398716": true,
"49927398717": false,
Line 5,698:
=={{header|RPL}}==
Card numbers shall be entered as strings to avoid any rounding error when testing long ones.
{{works with|
{| class="wikitable"
! RPL code
Line 5,704:
|-
|
« 0
card SIZE 1
'''IF'''
DUP +
-1 '''STEP'''
≫ ≫ '<span style="color:blue">LUHN?</span>' STO▼
10 MOD NOT
|
<span style="color:blue">LUHN?</span> ''( "card_number" -- boolean ) ''
sum = 0
loop for j=n to 1
digit = card[j]
if even digit
multiply it by 2 and add digits
sum += digit ; reverse parity flag
return not(sum mod 10)
|}
{{out}}
<pre>
| |||