R/exponentialMod.R

In QuantumOps: Performs Common Linear Algebra Operations Used in Quantum Computing and Implements Quantum Algorithms

Defines functions exponentialMod

Documented in exponentialMod

#bit-wise mod 2 add two integers
#' @export
exponentialMod <- function(a,N){
	f <- function(x){
		val <- 1
		for(j in 1:x){
			val <- (val * a) %% N
		}
		val
	}
	f
}

Try the QuantumOps package in your browser