Improved code.

Author: PESchoenberg

examples/example1.scm

@@ -2,110 +2,109 @@
 !#
 
 
-; ==============================================================================
-;
-; example1.scm
-;
-; A sample of different gates and functions of g2q. Note that this program does
-; not intend to be a functional one. It is just a way to demostrate what gates
-; and functions you can write and how. Don't worry about the sense it doesn't 
-; make as a practical program.  
-;
-; Compilation:
-;
-; - cd to your /examples folder.
-;
-; - Enter the following:
-;
-;   guile example1.scm 
-;
-; Note that quantum processors in practice may or may not have full connectivity
-; and thus not all connections between qubits may work. You may need to modify
-; qubit numbers or generate new gate sequences to work around  such limitations
-; in this and other programs.
-;
-; ==============================================================================
-;
-; Copyright (C) 2018 - 2020  Pablo Edronkin (pablo.edronkin at yahoo.com)
-;
-;   This program is free software: you can redistribute it and/or modify
-;   it under the terms of the GNU Lesser General Public License as published by
-;   the Free Software Foundation, either version 3 of the License, or
-;   (at your option) any later version.
-;
-;   This program is distributed in the hope that it will be useful,
-;   but WITHOUT ANY WARRANTY; without even the implied warranty of
-;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;   GNU Lesser General Public License for more details.
-;
-;   You should have received a copy of the GNU Lesser General Public License
-;   along with this program.  If not, see <https://www.gnu.org/licenses/>.
-;
-; ==============================================================================
-
-
-; Modules. These will be almost always required.
+;; =============================================================================
+;;
+;; example1.scm
+;;
+;; A sample of different gates and functions of g2q. Note that this program does
+;; not intend to be a functional one. It is just a way to demostrate what gates
+;; and functions you can write and how. Don't worry about the sense it doesn't 
+;; make as a practical program.  
+;;
+;; Compilation:
+;; - cd to your /examples folder.
+;;
+;; - Enter the following:
+;;
+;;   guile example1.scm 
+;;
+;; Note that quantum processors in practice may not have full connectivity
+;; and thus not all connections between qubits may work. You may need to modify
+;; qubit numbers or generate new gate sequences to work around  such limitations
+;; in this and other programs.
+;;
+;; =============================================================================
+;;
+;; Copyright (C) 2018 - 2020  Pablo Edronkin (pablo.edronkin at yahoo.com)
+;;
+;;   This program is free software: you can redistribute it and/or modify
+;;   it under the terms of the GNU Lesser General Public License as published by
+;;   the Free Software Foundation, either version 3 of the License, or
+;;   (at your option) any later version.
+;;
+;;   This program is distributed in the hope that it will be useful,
+;;   but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;   GNU Lesser General Public License for more details.
+;;
+;;   You should have received a copy of the GNU Lesser General Public License
+;;   along with this program.  If not, see <https://www.gnu.org/licenses/>.
+;;
+;; =============================================================================
+
+
+;; Modules. These will be almost always required.
 (use-modules (g2q g2q0)
 	     (g2q g2q1)
 	     (g2q g2q2))
 
 
-; Vars and initial stuff.
+;; Vars and initial stuff.
 (define fname "example1.qasm")
 (define cname "example1.qreg")
 (define qver 2.0)
 (define q "q")
 (define c "c")
 
-; This configures the output to be sent a file instead of the console. If you
-; take out or disable these lines, and those closing the output port (see at  
-; the bottom) instead of getting a qasm file you will see the compiled lines
-; on the console.
+;; This configures the output to be sent a file instead of the console. If you
+;; take out or disable these lines, and those closing the output port (see at  
+;; the bottom) instead of getting a qasm file you will see the compiled lines
+;; on the console.
 (define port1 (current-output-port))
 (define port2 (open-output-file fname))
 (set-current-output-port port2)
 
-; Remember what this program is about (optional).
+;; Remember what this program is about (optional).
 (qcomm "This program does nothing in particular, but shows how to use g2q functions.")
 
-; Creating header and required vectors.
+;; Creating header and required vectors.
 (qhead fname qver)
 (qregdef q 5 c 5)
 
-; Reset gates.
+;; Reset gates.
 (qcomm "Five reset gates.")
 (g1y "reset" q 0 4)
 
-; A swap gate.
+;; A swap gate.
 (qcomm "A swap gate.")
 (swap q 0 1)
 
-; A swap gate. Swap fast gates are better than their non-fast counterparts - in
-; this case this means that swap-fast is faster in execution than swap - but 
-; might not be recognized by all sorts of QPU, be them simulators or real 
-; processors. For such cases, I have written non-fast versions of several gates. 
-; These non-fast gates are atomic decompositions of swap-fast gates into gates
-; that can be recognized by a wider variety of QPU. So, in principle, if you
-; can, use the fast version of a gate when it is available because it will run
-; faster and with a lesser error rate, but if you can't or your QPU does not
-; recongize the fast gate in question, use the non-fast version.
+;; A swap gate. Swap fast gates are better than their non-fast counterparts - in
+;; this case this means that swap-fast is faster in execution than swap - but 
+;; might not be recognized by all sorts of QPU, be them simulators or real 
+;; processors. For such cases, I have written non-fast versions of several gates. 
+;; These non-fast gates are atomic decompositions of swap-fast gates into gates
+;; that can be recognized by a wider variety of QPU. So, in principle, if you
+;; can, use the fast version of a gate when it is available because it will run
+;; faster and with a lesser error rate, but if you can't or your QPU does not
+;; recongize the fast gate in question, use the non-fast version.
 (qcomm "A swap-fast gate.")
 (swap-fast q 0 1)
 
-; This places five Hadamard gates on y axis (i.e. in parallell), from register
-; 0 to register 4. Notice that function qcomm will print comments on the qasm
-; file, while these comments, starting will ; only appear in source files such  
-; as this one.
+;; This places five Hadamard gates on y axis (i.e. in parallell), from register
+;; 0 to register 4. Notice that function qcomm will print comments on the qasm
+;; file, while these comments, starting will ; only appear in source files such  
+;; as this one.
 (qcomm "Five h gates.")
 (g1y "h" q 0 4)
 
-; Now we do the same for a Pauli X, just for fun, but on the three first
-; registers. You can view the source code for modules g2q0, g2q1 and g2q2 for 
-; more specific info about these funtctions. Each one is commented there.
+;; Now we do the same for a Pauli X, just for fun, but on the three first
+;; registers. You can view the source code for modules g2q0, g2q1 and g2q2 for 
+;; more specific info about these funtctions. Each one is commented there.
 (qcomm "Two x gates.")
 (g1y "x" q 1 2)
 
-; And we add other gates, one by one.
+;; And we add other gates, one by one.
 (qcomm "Various basic gates.")
 (g1 "id" q 3)
 (g1 "y" q 4)
@@ -118,7 +117,7 @@
 (u2 1.6 1.6 q 1)
 (u3 1.6 1.6 1.6 q 2)
 
-; cx, cy, cz and ch gates.
+;; cx, cy, cz and ch gates.
 (qcomm "Controlled x.")
 (cx q 2 q 0)
 (qcomm "Controlled y.")
@@ -134,13 +133,13 @@
 (qcomm "Controlled h in fast form.")
 (ch-fast q 2 q 0)
 
-; Toffoli stuff.
+;; Toffoli stuff.
 (qcomm "Toffoli (ccx).")
 (ccx q 0 q 1 q 2)
 (qcomm "Toffoli in fast form.")
 (ccx-fast q 0 q 1 q 2)
 
-; Rotations and others.
+;; Rotations and others.
 (qcomm "rx.")
 (rx 1.6 q 1)
 (qcomm "rx in fast form.")
@@ -166,40 +165,40 @@
 (qcomm "Controlled u3 in fast form.")
 (cu3-fast 1.6 1.6 1.6 q 2 q 0)
 
-; if (Not yet available on IBM Q machines yet - uncomment to see how they 
-; compile but the resulting program may not run on a Q series machine at
-; least for now.
+;; if (Not yet available on IBM Q machines yet - uncomment to see how they 
+;; compile but the resulting program may not run on a Q series machine at
+;; least for now.
 (qcomm "Conditional1 eq.")
 (qcond1 "==" q 1)(g1 "y" q 2)
 (qcomm "Conditional2 eq.")
 (qcond2 "!=" q 2 1)(g1 "y" q 2)
 
-; GHZ state stuff.
+;; GHZ state stuff.
 (qcomm "Three qubit GHZ state generation")
 (ghzy "h" "x" q 0 2 1)
 (ghzy "h" "x" q 0 2 2)
 
-; Using lists.
+;; Using lists.
 (g1yl q '("h" "h" "h" "h" "sdg") 0)
 (g1yl q '("x" "h" "h" "sdg") 1)
 
-; Let's put a barrier.
+;; Let's put a barrier.
 (qcomm "Barriers.")
 (g1y "barrier" q 0 4)
 
-; And now measure.
+;; And now measure.
 (qcomm "Measuring")
 (qmeas q 0 c 0)
 (qmeas q 1 c 1)
 (qmeas q 2 c 2)
 (qmeas q 3 c 3)
 (qmeas q 4 c 4)
 
-; Message
+;; Message
 (qcomm "This message will appear at the end of the qasm file.")
 
-; Sets the output port again to the console. Don't forget to check if the 
-; compilation is error free or you have some bugs to kill.
+;; Sets the output port again to the console. Don't forget to check if the 
+;; compilation is error free or you have some bugs to kill.
 (set-current-output-port port1)
 (close port2)
 (qendc)