Rational Numbers

Ringkasan Tantangan

Implement rational numbers.

Visit the rational-numbers exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

Lihat Solusi Komunitas

The following are the top 1 community solutions by stars:

Solution 1 by @keiraville (⭐ 0) — View on Exercism

Source: Exercism sml/rational-numbers

💡 Lihat Solusi

fun reduce (n: int, d: int): int * int =
  let
    fun gcd (a, 0) = a
      | gcd (a, b) = gcd (b, a mod b)

    val g = gcd (Int.abs n, Int.abs d)
    val (n, d) = (n div g, d div g)
  in
    if d < 0 then (~n, ~d) else (n, d)
  end