gcd.nbt 229 B

1234567891011
  1. fn gcd(a: Scalar, b: Scalar) -> Scalar =
  2. if b == 0
  3. then abs(a)
  4. else gcd(b, mod(a, b))
  5. assert_eq(gcd(1071, 462), 21)
  6. assert_eq(gcd(6, 35), 1)
  7. assert_eq(gcd(-8, 4), 4)
  8. assert_eq(gcd(-8, -4), 4)
  9. assert_eq(gcd(8, -4), 4)