ReadBase.hs

module ReadBase where

import Numeric
import Maybe

readBase :: Integer -> String -> [(Integer,String)]
readBase base input = readInt base isValid toValue input
    where chars = ['0'..'9'] ++ ['A'..'Z'] ++ ['a'..'z']
          vals = zip chars [0..(fromIntegral base)]
          isValid = flip elem chars
          toValue = fromJust . (flip lookup vals)