WRKY5TH74QSTDAEKIP7NJO4PJVU2HTTYVY7B5OE7VTSRWEOK2J6AC
-- | @'solveQuadratic' p q@ returns the solutions to the equation \(X^2 + px + q = 0\).
solveQuadratic :: Nimber -> Nimber -> (Nimber, Nimber)
solveQuadratic 0 q = (sqrt q, sqrt q)
solveQuadratic p q = let x = p * artinSchreierRoot (q / sqr p) in (x, x + p)