R/euclidean.R

Defines functions euclidean

euclidean <- function(A, B){ #Faster, still using the wikipedia description
  repeat{
    if(A == B) return(A)
    if (A > B) A <- A - B else B <- B - A
  }
}
karlsigfrid/euclidean2 documentation built on Sept. 14, 2020, 12:05 a.m.