toki/idris2-ratio
1
0
Fork 0
Code Issues Pull requests Activity

Add partial ratio constructor

Browse source
This commit is contained in:
Kiana Sheibani 2023-08-06 22:18:11 -04:00
parent fdbc5b9d69
commit c1bfc2f042
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Data/Ratio.idr
View file

@ -40,9 +40,16 @@ export
mkRatioMaybe : IntegralGCD a => (n, d : a) -> Maybe (Ratio a) mkRatioMaybe : IntegralGCD a => (n, d : a) -> Maybe (Ratio a)
mkRatioMaybe n d = toMaybe (d /= 0) (reduce $ MkRatio n d) mkRatioMaybe n d = toMaybe (d /= 0) (reduce $ MkRatio n d)
||| Create a ratio of two values. ||| Create a ratio of two values.
||| WARNING: This is only safe if the denominator is not zero! export partial
mkRatio : IntegralGCD a => (n, d : a) -> Ratio a
mkRatio n d = case d /= 0 of
True => reduce $ MkRatio n d
||| Create a ratio of two values, unsafely assuming that they are coprime and
||| the denomindator is non-zero.
||| WARNING: This function will behave erratically and may crash your program
||| if these conditions are not met!
export %unsafe export %unsafe
unsafeMkRatio : (n, d : a) -> Ratio a unsafeMkRatio : (n, d : a) -> Ratio a
unsafeMkRatio = MkRatio unsafeMkRatio = MkRatio