Entanglement.qs

namespace Q_Entanglement {

    open Microsoft.Quantum.Canon;
    open Microsoft.Quantum.Intrinsic;
    
    operation Entanglement() : (Result, Result) {
        mutable Q1_state = Zero;
        mutable Q2_state = Zero;
        using ((Q1, Q2) = (Qubit(), Qubit())) {
            H(Q1);
            CNOT(Q1, Q2); // short for Controled NOT

            set Q1_state = M(Q1);
            set Q2_state = M(Q2);

            Reset(Q1);
            Reset(Q2);
        }
        return (Q1_state, Q2_state);
    }

    operation QuantumSimulator(count : Int) : (Int, Int) {
        mutable Q1_state = Zero;
        mutable Q2_state = Zero;

        mutable ones = 0;
        mutable equal = 0;
        
        for (indx in 1..count) {
            set (Q1_state, Q2_state) = Entanglement();

            if (Q1_state == One) {
                set ones += 1;
            }

            if (Q1_state == Q2_state) {
                set equal += 1;
            }
        }
        return (ones, equal);
    }

    @EntryPoint()
    operation Driver_Code() : Unit {
        let (ones, equal) = QuantumSimulator(1000);
        let zeros = 1000-ones;
        Message($"Entanglement result: ");
        Message($"   One: {ones}");
        Message($"   Zero: {zeros}");
        Message($"   Equal: {equal}");
    }
}