tests/testthat/students/487654765/jhg.R

gcd <- function(a, b) {
  if (a > 0 & b > 0) {
    while (b - a) if (a > b) a <- a - b else b <- b - a
    a
  }
}
GCD <- function(x, y, z) gcd(x, gcd(y, z))
oonyambu/stats_102A documentation built on July 21, 2020, 7:28 a.m.