Luhn test of credit card numbers: Difference between revisions
m
→{{header|Mathematica}}
Not a robot (talk | contribs) (Add BCPL) |
|||
Line 3,441:
1234567812345670 = True</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>LuhnQ[nb_] := (Mod[Total[(2*ToExpression[#[[2;;All;;2]]]) /. {z_?(Function[v, v>9]) -> z-9}]
+ Total[ToExpression[#[[1;;All;;2]]]], 10] == 0)& [Characters[StringReverse[ToString[nb]]] ]
|