R/gcd.R

Defines functions gcd

Documented in gcd

gcd <- function(x,y) {
	r <- x%%y;
	return(ifelse(r, gcd(y, r), y))
}

Try the QuantumOps package in your browser

Any scripts or data that you put into this service are public.

QuantumOps documentation built on Feb. 3, 2020, 5:07 p.m.