<?php
/**
 * Jingga
 *
 * PHP Version 8.1
 *
 * @package   phpOMS\Algorithm\Rating
 * @copyright Dennis Eichhorn
 * @license   OMS License 2.0
 * @version   1.0.0
 * @link      https://jingga.app
 */
declare(strict_types=1);

namespace phpOMS\Algorithm\Rating;

/**
 * Elo rating calculation using Glicko-1
 *
 * @package phpOMS\Algorithm\Rating
 * @license OMS License 2.0
 * @link    https://jingga.app
 * @since   1.0.0
 * @see     https://en.wikipedia.org/wiki/Glicko_rating_system
 * @see     http://www.glicko.net/glicko/glicko.pdf
 */
final class Glicko1
{
    public const Q = 0.00575646273; // ln(10) / 400

    public int $DEFAULT_ELO = 1500;

    public int $DEFAULT_RD = 350;

    public float $DEFAULT_C = 34.6;

    public int $MIN_ELO = 100;

    public int $MIN_RD = 50;

    /**
     * Calcualte the glicko-1 elo
     *
     * @param int $eloOld Old elo
     * @param int $rdOld  Old deviation (50 === +/-100 elo points)
     * @param int $lastMatchDate Last match date used to calculate the time difference (can be days, months, ... depending on your match interval)
     * @param int $matchDate Match date (usually day)
     * @param float[] $s Match results (1 = victor, 0 = loss, 0.5 = draw)
     * @param int[] $oElo Opponent elo
     * @param int[] $oRd Opponent deviation
     *
     * @return array{elo:int, rd:int}
     *
     * @since 1.0.0
     */
    public function rating(
        int $eloOld = 1500,
        int $rdOld = 50,
        int $lastMatchDate = 0,
        int $matchDate = 0,
        array $s = [],
        array $oElo = [],
        array $oRd = []
    ) : array
    {
        // Step 1:
        $s = [];
        $E = [];
        $gRD = [];

        $RD = \min(
            350,
            \max(
                \sqrt(
                    $rdOld * $rdOld
                    + $this->DEFAULT_C * $this->DEFAULT_C * \max(0, $matchDate - $lastMatchDate)
                ),
                $this->MIN_RD
            )
        );

        // Step 2:
        foreach ($oElo as $id => $e) {
            $gRD_t = 1 / (\sqrt(1 + 3 * self::Q * self::Q * $oRd[$id] * $oRd[$id] / (\M_PI * \M_PI)));
            $gRD[] = $gRD_t;
            $E[]   = 1 / (1 + \pow(10, $gRD_t * ($eloOld - $e) / -400));
        }

        $d = 0;
        foreach ($E as $id => $_) {
            $d += $gRD[$id] * $gRD[$id] * $E[$id] * (1 - $E[$id]);
        }
        $d2 = 1 / (self::Q * self::Q * $d);

        $r = 0;
        foreach ($E as $id => $_) {
            $r += $gRD[$id] * ($s[$id] - $E[$id]);
        }
        $r = $eloOld + self::Q / (1 / ($RD * $RD) + 1 / $d2) * $r;

        // Step 3:
        $RD_ = \sqrt(1 / (1 / ($RD * $RD) + 1 / $d2));

        return [
            'elo' => (int) \max((int) $r, $this->MIN_ELO),
            'rd' => (int) \max($RD_, $this->MIN_RD)
        ];
    }
}