古い記事
ランダムジャンプ
新しい記事
自分用メモ。
ISBN-10 は旧規格の ISBN。
アマゾンで紙書籍の ASIN として現在も使用されている。

その ISBN-10 の最後の一桁(検査数字・チェックディジット)の計算方法。

Perl のワンライナー。
echo "410211341\n410138341\n410211401" |
perl -F"" -anle '$s=0;$s+=(10-$_)*$F[$_]for(0..8);$s=(11-$s%11)%11;$s="X"if$s==10;print$_.$s'

410211341X
4101383413
4102114017

関連記事