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]
:
      []