------------------------------------------------------------------------
-- The Agda standard library
--
-- Showing unnormalised rational numbers
------------------------------------------------------------------------

{-# OPTIONS --cubical-compatible --safe #-}

module Data.Rational.Unnormalised.Show where

import Data.Integer.Show as ℤ using (show)
open import Data.Nat.Base using (ℕ)
open import Data.Rational.Base using (fromℚᵘ)
import Data.Rational.Show as ℚ using (showAtPrecision)
open import Data.Rational.Unnormalised.Base
  using (ℚᵘ; ↥_; ↧_)
open import Data.String.Base using (String; _++_)

show : ℚᵘ → String
show p = ℤ.show (↥ p) ++ "/" ++ ℤ.show (↧ p)

showAtPrecision : ℕ → ℚᵘ → String
showAtPrecision n q = ℚ.showAtPrecision n (fromℚᵘ q)