Quantum Computing, Quantum Computer, Simulator, From Scratch.
([m (mat->list m1 m2)] [l (list->mat m)]) (list*->matrix l))) (define (t* . qbits) (let ([n (length qbits)]) (cond ((< n 1) (error "No qubits given")) ((= n 1) (first qbits)) (else (tensor* (first qbits) (apply t* (rest qbits))))))) The t* function works on any number of matrices and produces the