ISBN13 check digit: Difference between revisions

m
(K)
Line 1,888:
 
=={{header|K}}==
tested{{works with |ngn/k}}
<syntaxhighlight lang=K>digits: {x[&(x>"/")&x<":"]-"0"}
isbn13c: 0=10!+/{x*(#x)#1 3} digits@
Line 1,899 ⟶ 1,900:
isbn13c "978-1788399083"
0</syntaxhighlight>
 
tested with ngn/k
 
=={{header|Kotlin}}==
6,962

edits