modular.R
##
## g c d . R tests
##
extGCD <- pracma::extGCD
GCD <- pracma::GCD
LCM <- pracma::LCM
identical(extGCD(46368, 75025), c(1, 28657, -17711))
identical(GCD(46368, 75025), 1)
identical(LCM(46368, 75025), 46368 * 75025)
##
## g c d . R tests
##
extGCD <- pracma::extGCD
GCD <- pracma::GCD
LCM <- pracma::LCM
identical(extGCD(46368, 75025), c(1, 28657, -17711))
identical(GCD(46368, 75025), 1)
identical(LCM(46368, 75025), 46368 * 75025)