ISBN13 check digit: Difference between revisions
no edit summary
(→{{header|Excel}}: Added an Excel LAMBDA version.) |
No edit summary |
||
Line 1,547:
978-1788399081: good
978-1788399083: bad</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>ClearAll[ValidISBNQ]
ValidISBNQ[iban_String] := Module[{i},
i = StringReplace[iban, {" " -> "", "-" -> ""}];
If[StringMatchQ[i, Repeated[DigitCharacter]],
i = ToExpression /@ Characters[i];
i[[2 ;; ;; 2]] *= 3;
Mod[Total[i], 10] == 0
,
False
]
]
ValidISBNQ["978-1734314502"]
ValidISBNQ["978-1734314509"]
ValidISBNQ["978-1788399081"]
ValidISBNQ["978-1788399083"]</lang>
{{out}}
<pre>True
False
True
False</pre>
=={{header|Nanoquery}}==
| |||