ISBN13 check digit: Difference between revisions
Content added Content deleted
No edit summary |
Drkameleon (talk | contribs) |
||
Line 648: | Line 648: | ||
<lang rebol>validISBN?: function [isbn][ |
<lang rebol>validISBN?: function [isbn][ |
||
currentCheck: to :integer to :string last isbn |
currentCheck: to :integer to :string last isbn |
||
isbn: map split chop replace isbn "-" "" |
isbn: map split chop replace isbn "-" "" 'd -> to :integer d |
||
s: 0 |
s: 0 |