R/euclidean.R

In mariatreesa/Lab3R: Dijkstras and Eucledian Algorithm

#'  Eucledian Algorithm
#' @author Maria ,Masinde, Omkar
#' @param x as numeric
#' @param y as numeric
#'
#' @return GCD of x and y .
#' @references <https://en.wikipedia.org/wiki/Euclidean_algorithm>
#' @export euclidean
#'
#' @examples euclidean(100,10000)
#'
euclidean <- function(x,y){
  stopifnot(is.numeric(x) || is.numeric(y))
  i<-1
    repeat{
      temp<-y
      y<- x%%y
      x<-temp
      if(y==0) break
    }
  return(x)
}