full_superposition.gs

namespace Q_superposition {

    open Microsoft.Quantum.Canon;
    open Microsoft.Quantum.Intrinsic;
    
    operation Superposition() : Result {
        mutable state = Zero;
        using (qubit = Qubit()) {
            H(qubit);
            set state = M(qubit);
            
            Reset(qubit);
        }
        return state;
    }

    operation QuantumSimulator() : Int {
        let count = 1000;
        mutable ones = 0;
        for (indx in 1..count) {
            if (Superposition() == One) {
                set ones += 1;
            }
        }
        return ones;
    }

    @EntryPoint()
    operation Driver_Code() : Unit {
        let ones = QuantumSimulator();
        let zeros = 1000-ones;
        Message($"Collapsed States: ");
        Message($"   One: {ones}");
        Message($"   Zero: {zeros}");
    }
}