Talk:Luhn algorithm: Difference between revisions

Revision as of 05:43, 24 October 2007

Revision as of 11:42, 28 December 2007

Line 83:

I've moved these links to a section on the main page, complying with the compromise. --ZX2C4

== Mathematica implementation ==

Still missing this one :)

LuhnCheck[n_] := Module[{digits = IntegerDigits[n]},

For[i = Length[digits] - 1, i >= 1, i -= 2, digits[[i]] = FixedPoint[Composition[Total, IntegerDigits], 2*digits[[i]]]];

Mod[Total[digits], 10] == 0

]

11:42, 28 December 2007 (UTC)