module BishBosh.Notation.Figurine(
toFigurine,
fromFigurine
) where
import Data.Array.IArray((!))
import qualified BishBosh.Component.Piece as Component.Piece
import qualified Data.Array.IArray
import qualified Data.Map.Strict as Map
import qualified Data.Tuple
type Figurine = Char
figurinesByPiece :: Component.Piece.ArrayByPiece Figurine
figurinesByPiece :: ArrayByPiece Figurine
figurinesByPiece = [Figurine] -> ArrayByPiece Figurine
forall (a :: * -> * -> *) e. IArray a e => [e] -> a Piece e
Component.Piece.listArrayByPiece [Figurine]
"\x265F\x265C\x265E\x265D\x265B\x265A\x2659\x2656\x2658\x2657\x2655\x2654"
toFigurine :: Component.Piece.Piece -> Figurine
toFigurine :: Piece -> Figurine
toFigurine = (ArrayByPiece Figurine
figurinesByPiece ArrayByPiece Figurine -> Piece -> Figurine
forall (a :: * -> * -> *) e i.
(IArray a e, Ix i) =>
a i e -> i -> e
!)
piecesByFigurine :: Map.Map Figurine Component.Piece.Piece
piecesByFigurine :: Map Figurine Piece
piecesByFigurine = [(Figurine, Piece)] -> Map Figurine Piece
forall k a. Ord k => [(k, a)] -> Map k a
Map.fromList ([(Figurine, Piece)] -> Map Figurine Piece)
-> ([(Piece, Figurine)] -> [(Figurine, Piece)])
-> [(Piece, Figurine)]
-> Map Figurine Piece
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ((Piece, Figurine) -> (Figurine, Piece))
-> [(Piece, Figurine)] -> [(Figurine, Piece)]
forall a b. (a -> b) -> [a] -> [b]
map (Piece, Figurine) -> (Figurine, Piece)
forall a b. (a, b) -> (b, a)
Data.Tuple.swap ([(Piece, Figurine)] -> Map Figurine Piece)
-> [(Piece, Figurine)] -> Map Figurine Piece
forall a b. (a -> b) -> a -> b
$ ArrayByPiece Figurine -> [(Piece, Figurine)]
forall (a :: * -> * -> *) e i.
(IArray a e, Ix i) =>
a i e -> [(i, e)]
Data.Array.IArray.assocs ArrayByPiece Figurine
figurinesByPiece
fromFigurine :: Figurine -> Maybe Component.Piece.Piece
fromFigurine :: Figurine -> Maybe Piece
fromFigurine = (Figurine -> Map Figurine Piece -> Maybe Piece
forall k a. Ord k => k -> Map k a -> Maybe a
`Map.lookup` Map Figurine Piece
piecesByFigurine)