Jump to content

ISBN13 check digit: Difference between revisions

m
Line 177:
pair :: Num a => [a] -> [(a, a)]
pair [] = []
pair xs = p' (take 2 xs) : pair (drop 2 xs)
where p' ps = case ps of (x:y:zs) -> (x,y)
(x:zs) -> (x,0)
 
validIsbn13 :: String -> Bool
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.