glicko-0.3.0.0: test/Paper.hs

module Paper where

import Ranking.Glicko

players :: [Player 1]
players =
  [ Player { playerId = 1
           , playerRating = 1500
           , playerDev = 200
           , playerVol = 0.06
           , playerInactivity = 0
           , playerAge = 0 }

  , Player { playerId = 2
           , playerRating = 1400
           , playerDev = 30
           , playerVol = 0.06
           , playerInactivity = 0
           , playerAge = 0 }

  , Player { playerId = 3
           , playerRating = 1550
           , playerDev = 100
           , playerVol = 0.06
           , playerInactivity = 0
           , playerAge = 0 }

  , Player { playerId = 4
           , playerRating = 1700
           , playerDev = 300
           , playerVol = 0.06
           , playerInactivity = 0
           , playerAge = 0 }]

matches :: [Match]
matches =
  [ Match 1 2 1 0
  , Match 1 3 0 1
  , Match 1 4 0 1]