R/GCD.R

In CryptRndTest: Statistical Tests for Cryptographic Randomness

Defines functions GCD

Documented in GCD

GCD=function(x,y,k=0){
  if (y!=0){
    k=k+1
    GCD(y,x%%y,k)
  }else{    
    result=list(k=k,g=x)
    return(result)
  }
  
}

Try the CryptRndTest package in your browser