El código del algoritmo de Deutsch-Jozsa en Q#

gistfile1.txt

open Microsoft.Quantum.Diagnostics;

operation DeutschJozsaAlgorithm (f : ((Qubit[], Qubit) => Unit is Adj)) : Bool {
    using (register = Qubit[2]) {
        // Prepare the initial state.
        H(register[0]);
        X(register[1]);
        H(register[1]);

        // Apply the oracle.
        f(register, One);

        // Measure the result.
        let result = MultiM(register);

        // Return true if the function is constant.
        return result == [false, false];
    }
}