Luhn test of credit card numbers: Difference between revisions
m
→{{header|langur}}
Not a robot (talk | contribs) (add Refal) |
Langurmonkey (talk | contribs) |
||
| (5 intermediate revisions by 4 users not shown) | |||
Line 1,827:
$ echo 1234567812345670 | beef luhn.bf
Pass</pre>
=={{header|Bruijn}}==
<syntaxhighlight lang="bruijn">
:import std/Combinator .
:import std/Math .
:import std/List .
luhn number→list → reverse → check → (\mod (+10)) → zero?
check y [[[[0 [[[6 \5 (4 + (5 odd even)) 1]]] 1]]]] k (+0)
odd 2
even digit-sum (2 ⋅ (+2))
:test (luhn (+61789372994)) ([[1]])
:test (luhn (+49927398716)) ([[1]])
:test (luhn (+49927398717)) ([[0]])
:test (luhn (+1234567812345678)) ([[0]])
:test (luhn (+1234567812345670)) ([[1]])
</syntaxhighlight>
=={{header|Burlesque}}==
Line 2,855 ⟶ 2,873:
1234567812345678: fail
1234567812345670: pass</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
func luhn cc$ .
for i = len cc$ downto 1
odd = 1 - odd
dig = number substr cc$ i 1
if odd = 0
dig = 2 * dig
if dig >= 10
dig -= 9
.
.
sum += dig
.
return if sum mod 10 = 0
.
cc$[] = [ "49927398716" "49927398717" "1234567812345678" "1234567812345670" ]
for cc$ in cc$[]
write cc$ & " "
if luhn cc$ = 1
print "is valid"
else
print "is not valid"
.
.
</syntaxhighlight>
{{out}}
<pre>
49927398716 is valid
49927398717 is not valid
1234567812345678 is not valid
1234567812345670 is valid
</pre>
=={{header|EchoLisp}}==
Line 3,870 ⟶ 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,880 ⟶ 3,932:
}
val .tests =
"49927398716": true,
"49927398717": false,
Line 5,646 ⟶ 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,652 ⟶ 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>
| |||