R/euclidean.R

In faridmusayev/R_Lab03: Euclidean and Dijkstra Algorithms

#' Euclidean Algorithm
#'
#' \code{euclidean} returns the greatest common divisor of two input (a,b) values.
#'
#' \url{https://en.wikipedia.org/wiki/Euclidean_algorithm}
#'
#' @param a Must be numeric scalar or integer
#' @param b Must be numeric scalar or integer
#'
#' @return The greatest common divisor of \code{a} and \code{b}
#' @export
#'
#' @examples
#' euclidean(100,10)
#'
#' \dontrun{
#' euclidean('dog','cat')
#' }
#'
#'
#'
#'
euclidean<-function(a,b){

  if (!is.numeric(a) | !is.numeric(b)) stop('Wrong input')

  while (b!=0){
    x=b
    b=a%%b
    a=x
  }
  return(a)
}