Safe Haskell	None
Language	Haskell2010

Game.Calc

Description

Game calculations and its processing functions

Synopsis

data PlayerInput = PlayerInput {
- username :: String
- board :: [Combination]
- scoop :: Bool
- withFantasy :: Bool
}
data LineResult
data LineType
- = Top
- | Middle
- | Bottom
data PlayerCalculations = PlayerCalculations {
- player :: PlayerInput
- top :: LineResult
- middle :: LineResult
- bottom :: LineResult
- isScoop :: Bool
- isNextFantasy :: Bool
- totalDetailed :: (String, [LineCompareResult])
- total :: Int
}
comparePlayers :: PlayerInput -> PlayerInput -> LineCompareResult
calcGame :: [PlayerInput] -> [PlayerCalculations]

Documentation

data PlayerInput Source #

Constructors

PlayerInput
Fields username :: String board :: [Combination] scoop :: Bool withFantasy :: Bool

Instances

Instances details

Show PlayerInput Source #
Instance details Defined in Game.Calc Methods showsPrec :: Int -> PlayerInput -> ShowS # show :: PlayerInput -> String # showList :: [PlayerInput] -> ShowS #
Generic PlayerInput Source #
Instance details Defined in Game.Calc Associated Types type Rep PlayerInput :: Type -> Type # Methods from :: PlayerInput -> Rep PlayerInput x # to :: Rep PlayerInput x -> PlayerInput #
FromJSON PlayerInput Source #
Instance details Defined in Game.Calc Methods parseJSON :: Value -> Parser PlayerInput parseJSONList :: Value -> Parser [PlayerInput]
ToJSON PlayerInput Source #
Instance details Defined in Game.Calc Methods toJSON :: PlayerInput -> Value toEncoding :: PlayerInput -> Encoding toJSONList :: [PlayerInput] -> Value toEncodingList :: [PlayerInput] -> Encoding
type Rep PlayerInput Source #
Instance details Defined in Game.Calc type Rep PlayerInput = D1 ('MetaData "PlayerInput" "Game.Calc" "ofc-calc-haskell-0.1.0.0-inplace" 'False) (C1 ('MetaCons "PlayerInput" 'PrefixI 'True) ((S1 ('MetaSel ('Just "username") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 String) :: S1 ('MetaSel ('Just "board") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Combination])) :: (S1 ('MetaSel ('Just "scoop") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool) :*: S1 ('MetaSel ('Just "withFantasy") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Bool))))

data LineResult Source #

Data container for line result for the user.

Contains data about type of line (position - topmiddlebottom), about points for the combination, total values for combo/bonus points after comparison with others.

Instances

Instances details

Show LineResult Source #
Instance details Defined in Game.Calc Methods showsPrec :: Int -> LineResult -> ShowS # show :: LineResult -> String # showList :: [LineResult] -> ShowS #
Generic LineResult Source #
Instance details Defined in Game.Calc Associated Types type Rep LineResult :: Type -> Type # Methods from :: LineResult -> Rep LineResult x # to :: Rep LineResult x -> LineResult #
FromJSON LineResult Source #
Instance details Defined in Game.Calc Methods parseJSON :: Value -> Parser LineResult parseJSONList :: Value -> Parser [LineResult]
ToJSON LineResult Source #
Instance details Defined in Game.Calc Methods toJSON :: LineResult -> Value toEncoding :: LineResult -> Encoding toJSONList :: [LineResult] -> Value toEncodingList :: [LineResult] -> Encoding
type Rep LineResult Source #
Instance details Defined in Game.Calc type Rep LineResult = D1 ('MetaData "LineResult" "Game.Calc" "ofc-calc-haskell-0.1.0.0-inplace" 'False) (C1 ('MetaCons "LineResult" 'PrefixI 'True) ((S1 ('MetaSel ('Just "lineType") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 LineType) :: S1 ('MetaSel ('Just "combination") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Combination))) :: (S1 ('MetaSel ('Just "points") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :: (S1 ('MetaSel ('Just "totalCombination") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int) :: S1 ('MetaSel ('Just "totalBonus") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Int)))))

data LineType Source #

Constructors

Top
Middle
Bottom

Instances

Instances details

Show LineType Source #
Instance details Defined in Game.Calc Methods showsPrec :: Int -> LineType -> ShowS # show :: LineType -> String # showList :: [LineType] -> ShowS #
Generic LineType Source #
Instance details Defined in Game.Calc Associated Types type Rep LineType :: Type -> Type # Methods from :: LineType -> Rep LineType x # to :: Rep LineType x -> LineType #
FromJSON LineType Source #
Instance details Defined in Game.Calc Methods parseJSON :: Value -> Parser LineType parseJSONList :: Value -> Parser [LineType]
ToJSON LineType Source #
Instance details Defined in Game.Calc Methods toJSON :: LineType -> Value toEncoding :: LineType -> Encoding toJSONList :: [LineType] -> Value toEncodingList :: [LineType] -> Encoding
type Rep LineType Source #
Instance details Defined in Game.Calc type Rep LineType = D1 ('MetaData "LineType" "Game.Calc" "ofc-calc-haskell-0.1.0.0-inplace" 'False) (C1 ('MetaCons "Top" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Middle" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Bottom" 'PrefixI 'False) (U1 :: Type -> Type)))

data PlayerCalculations Source #

Container for result of calculations for each player.

Contains data about given player input, description of each line in form of LineResult, some utility bool values, such as isScoop, isNextFantasy. Also has total sum of points for user after comparison. And a debug detailed version of the total (totalDetailed field).

Constructors

PlayerCalculations
Fields player :: PlayerInput top :: LineResult middle :: LineResult bottom :: LineResult isScoop :: Bool isNextFantasy :: Bool totalDetailed :: (String, [LineCompareResult]) total :: Int

Instances

Instances details

Generic PlayerCalculations Source #
Instance details Defined in Game.Calc Associated Types type Rep PlayerCalculations :: Type -> Type # Methods from :: PlayerCalculations -> Rep PlayerCalculations x # to :: Rep PlayerCalculations x -> PlayerCalculations #
FromJSON PlayerCalculations Source #
Instance details Defined in Game.Calc Methods parseJSON :: Value -> Parser PlayerCalculations parseJSONList :: Value -> Parser [PlayerCalculations]
ToJSON PlayerCalculations Source #
Instance details Defined in Game.Calc Methods toJSON :: PlayerCalculations -> Value toEncoding :: PlayerCalculations -> Encoding toJSONList :: [PlayerCalculations] -> Value toEncodingList :: [PlayerCalculations] -> Encoding
type Rep PlayerCalculations Source #
Instance details Defined in Game.Calc type Rep PlayerCalculations

comparePlayers :: PlayerInput -> PlayerInput -> LineCompareResult Source #

Function to compare PlayerInput records and retrieve calculated points. Takes two PlayerInput as input. Returns calculated points in form of LineCompareResult

calcGame :: [PlayerInput] -> [PlayerCalculations] Source #

Main function for game calculation.

Takes a list of 'PlayerInput;, which length should be 3. Return a list of PlayerCalculations.

First of all, function receives all players comparison using collectLinesResults. Then it checks for input conditions: length of input and length of comparison results should be equal and should equal 3.

Then for each of player input function creates PlayerCalculations record.