Prüfsumme

Pruefsumme.hs

module Main where

import Data.List (unfoldr)

main =
  putStrLn $ "Prüfe Rechnungsnummer 4711: " ++ show (pruefsummeFuerRechnungsNummern 4711)

pruefsummeFuerNetzwerkAdressen =
  pruefsumme [5,1] 9 digitsRightToLeft

pruefsummeFuerRechnungsNummern =
  pruefsumme [5,1] 7 digitsLeftToRight

pruefsumme gewichtungen modulo ziffernAusZahl =
  (`mod` modulo) . sum . zipWith (*) (cycle gewichtungen) . ziffernAusZahl

digitsLeftToRight =
  reverse . digitsRightToLeft

digitsRightToLeft 0 = [0]
digitsRightToLeft zahl = unfoldr next zahl
  where
    next n
      | n > 0     = Just (n `mod` 10, n `div` 10)
      | otherwise = Nothing