15 lines
386 B
Text
15 lines
386 B
Text
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-0596528126"]
|
|
ValidISBNQ["978-0596528120"]
|
|
ValidISBNQ["978-1788399081"]
|
|
ValidISBNQ["978-1788399083"]
|