R/lcm.R

lcm <- function(x) {
  UseMethod("lcm")
}

lcm.rational_chord <- function(x) {
  y <- c(numbers::mLCM(x[1, ]),
         numbers::mGCD(x[2, ]))
  fraction(y)
}
pmcharrison/bowl18 documentation built on May 25, 2019, 4:03 a.m.