ISBN規格改訂

1月1日からISBN（国際標準図書番号）が変わったという話題。

　via ぷわぷわのあかしろ – ISBN
　cf. 日本図書コード管理センター – ISBN規格改訂のお知らせ

そういえば昨日買った本のISBNは13桁だった。
そうか，チェックデジットの計算方法も変わってるのか。

で，旧番号から新番号に変換するコードを書いてみた。
入力は，頭の “ISBN” やチェックデジットはあってもなくても良いけど，区切りの “-” は必須。

module Main (main) where

import Data.Char (isAlpha, isDigit)
import System (getArgs)

checkDigit :: [Char] -> String
checkDigit s = show cd
  where
    cd = if l == 0 then 0 else 10 - l
    l = f `mod` 10
    f = sum $ zipWith (*) [1,3,1,3,1,3,1,3,1,3,1,3] $ map (\c -> read [c]) s

stripIsbnOld :: String -> String
stripIsbnOld = take 11 . dropWhile isAlpha

isbnConv :: String -> String -> String
isbnConv flg old = "ISBN" ++ flg ++ stripIsbnOld old ++ "-" ++ checkDigit (filter isDigit (flg ++ old))

isbnConv978 :: String -> String
isbnConv978 = isbnConv "978-"

main :: IO ()
main = do cs <- getArgs >>= return . head
          putStr $ isbnConv978 cs

実行例。

D:\>runghc isbnconv.hs ISBN4-949999-08-7
ISBN978-4-949999-08-3