Quantum Computing, Quantum Computer, Simulator, From Scratch.
(x) (matrix->list* (matrix-map (λ (y) (* x y)) m2))) m1))) (define (list->mat m) (let ([rows '()]) (for ([row m]) (for ([i (range (length (first row)))]) (let ([row-line '()]) (for ([m row]) (set! row-line (append row-line (list-ref m i)))) (set! rows (append rows (list row-line)))))) rows)) (let*