module Data.Char.Number where import qualified Data.Map as Map import Data.Map (Map) fractionMap :: (Ord a, Fractional a) => Map a Char fractionMap :: Map a Char fractionMap = [(a, Char)] -> Map a Char forall k a. Ord k => [(k, a)] -> Map k a Map.fromList ([(a, Char)] -> Map a Char) -> [(a, Char)] -> Map a Char forall a b. (a -> b) -> a -> b $ (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 4, Char '\xbc') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 2, Char '\xbd') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 3a -> a -> a forall a. Fractional a => a -> a -> a /a 4, Char '\xbe') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 7, Char '\x2150') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 9, Char '\x2151') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 10,Char '\x2152') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 3, Char '\x2153') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 2a -> a -> a forall a. Fractional a => a -> a -> a /a 3, Char '\x2154') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 5, Char '\x2155') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 2a -> a -> a forall a. Fractional a => a -> a -> a /a 5, Char '\x2156') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 3a -> a -> a forall a. Fractional a => a -> a -> a /a 5, Char '\x2157') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 4a -> a -> a forall a. Fractional a => a -> a -> a /a 5, Char '\x2158') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 6, Char '\x2159') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 5a -> a -> a forall a. Fractional a => a -> a -> a /a 6, Char '\x215A') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 1a -> a -> a forall a. Fractional a => a -> a -> a /a 8, Char '\x215B') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 3a -> a -> a forall a. Fractional a => a -> a -> a /a 8, Char '\x215C') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 5a -> a -> a forall a. Fractional a => a -> a -> a /a 8, Char '\x215D') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : (a 7a -> a -> a forall a. Fractional a => a -> a -> a /a 8, Char '\x215E') (a, Char) -> [(a, Char)] -> [(a, Char)] forall a. a -> [a] -> [a] : []