Serie D Group I stats & predictions

Oltre alle previsioni tecniche e ai consigli su come scommettere sui match della Serie D Gruppo I, ecco alcuni bonus informativi che potrebbero interessarti:

Bonus Storici sui Match tra Squadre

• Come si sono comportate storicamente queste due squadre nei loro incontri passati? Ad esempio, Seregno - Caronnese: Il Seregno ha vinto 70% delle volte nei confronti diretti negli ultimi 5 anni.
  Lumezzane - Olginatese: Le statistiche mostrano un equilibrio quasi perfetto nei risultati tra queste due formazioni.
  darthcrump/RAWDAT<|file_sep|>/src/Database/PostgreSQL.hs {-# LANGUAGE OverloadedStrings #-} module Database.PostgreSQL where import Control.Exception import Control.Monad import Data.Aeson import qualified Data.ByteString.Char8 as BS import qualified Data.ByteString.Lazy as BL import qualified Data.HashMap.Strict as HM import Data.Int (Int64) import qualified Data.Text as T import qualified Data.Vector as V import Database.PostgreSQL.Simple (Query(..), FromRow(..), ToRow(..), Only(..), Connection, withTransaction, connectPostgreSQL, query_, query, execute, SqlValue(..), toField, field, fromField) import Database.PostgreSQL.Simple.FromField (fieldParser) import Database.PostgreSQL.Simple.Types (ColumnType) import Rawdat (RawdatError(..), getDBName) -- | Connect to the database. connectDB :: IO Connection connectDB = connectPostgreSQL $ BS.pack $ "dbname=" ++ getDBName -- | Close the connection. closeDB :: Connection -> IO () closeDB = close -- | Execute a command and return the number of affected rows. executeWithCount :: Connection -> Query -> [SqlValue] -> IO Int64 executeWithCount conn q args = withTransaction conn $ do execute conn q args query_ conn "SELECT COUNT(*) FROM pg_stat_activity WHERE datname = ?" [toField $ getDBName] count <- head <$> query conn (Only count) [] return count -- | Run an SQL command that doesn't return any results. executeCommand :: Connection -> Query -> [SqlValue] -> IO () executeCommand conn q args = executeWithCount conn q args >> return () -- | Run an SQL command and return the result set. queryRows :: Connection -> Query -> [SqlValue] -> IO [[SqlValue]] queryRows conn q args = query conn q args -- | Convert the given list of rows to JSON. rowsToJSON :: ToJSON a => [[SqlValue]] -> Either RawdatError BL.ByteString rowsToJSON rows = case decodeTable rows of Left err -> Left $ DBError err Right table -> Right $ encode table -- | Convert the given list of rows into an Aeson table. decodeTable :: FromRow a => [[SqlValue]] -> Either String (HM.HashMap T.Text (V.Vector a)) decodeTable rows = case V.fromList <$> traverse decodeRow rows of Left err -> Left err Right vecs -> Right $ HM.fromList $ zip (map f vecs) [0..] where f v = ("column" <> T.pack . show $ V.length vecs <> T.singleton ':' <> T.pack . show $ V.length v) .= v -- | Decode one row into one or more values depending on the row's structure. decodeRow :: FromRow a => [SqlValue] -> Either String (V.Vector a) decodeRow row = case V.fromList <$> traverse fromField row of Left err -> Left err Right vals -> Right vals instance FromRow RawdatError where fromRow flds = case readMaybe flds of Just err -> return err Nothing -> fail "Can't convert to RawdatError" instance FromField RawdatError where fromField fld@(SQLText _) = case readMaybe $ BS.unpack $ T.encodeUtf8 fld of Just err -> return err Nothing -> fail "Can't convert to RawdatError" fromField fld@(SQLInt32 _) = case readMaybe $ show fld of Just err -> return err Nothing -> fail "Can't convert to RawdatError" fromField fld@(SQLInt64 _) = case readMaybe $ show fld of Just err -> return err Nothing -> fail "Can't convert to RawdatError" fromField fld@(SQLDouble _) = case readMaybe $ show fld of Just err -> return err Nothing -> fail "Can't convert to RawdatError" fromField fld@(SQLTextNull _) = Left "NULL value" fromField fld@(SQLInt32Null _) = Left "NULL value" fromField fld@(SQLInt64Null _) = Left "NULL value" fromField fld@(SQLDoubleNull _) = Left "NULL value" fromField _ = fail "Don't know how to convert this SQL type to RawdatError" instance ToRow RawdatError where toRow er = [toField er] instance FromRow Int where fromRow r = fmap floor . fromRow r instance ToRow Int where toRow i = [toField i] instance FromRow Bool where fromRow r = fmap (x->x /= SQLNull) . fromRow r instance ToRow Bool where toRow b = [toField b] instance FromRow () where fromRow _ = return () instance ToRow () where toRow _ = [] data TableData = Rows [[SqlValue]] | Table HM.HashMap T.Text (V.Vector SqlValue) deriving Show instance FromJSON TableData where parseJSON (Array arr) = Rows <$> traverse parseJSON arr parseJSON obj = Table <$> HM.fromList <$> traverse parseObj obj parseObj :: Value -> Parser (T.Text,(V.Vector SqlValue)) parseObj (Object obj) = ((T.Text n):xs -> ((V.Vector xs) -> let column :: V.Vector SqlValue = V.map ((String s) -> SQLText $ BS.pack $ BS.unpack $ T.encodeUtf8 s) xs in pure (n,column)) <*> traverse parseJSON xs) <$> HM.keys obj <*> HM.elems obj parseObj _ = fail "Can't parse object into table" data Column = Column { name :: T.Text, colType :: ColumnType, colSize :: Maybe Int64, colMod :: Maybe Int64, colCollate :: Maybe String, colNullable:: Bool } deriving Show instance