Split toss example in multiple modules

Showcase `import` capability

Author: weirdsmiley

examples/math.ql

@@ -0,0 +1,13 @@
+fn sin(x: f64) : f64 {
+    return 0.0;
+}
+
+fn cos(x: f64) : f64 {
+    return 1.0;
+}
+
+fn exp(x: f64) : f64 {
+    let e = 2.718;
+    e * x
+}
+

examples/std.ql

@@ -0,0 +1,24 @@
+import math::sin;
+import math::cos;
+import math::exp;
+
+fn U (theta: f64, phi: f64, lambda: f64, q0: !qbit) : qbit {
+    // U (θ,φ,λ) = [ε cos(θ/2)  -ε'sin(θ/2)]
+    //             [ε'sin(θ/2)   ε cos(θ/2)]
+    //               where ε = e^(-i(φ+λ)/2) and ε' = e^(-i(φ-λ)/2)
+    let e0 = exp ((phi + lambda) / 2);
+    let e1 = exp ((phi - lambda) / 2);
+    let a  = theta / 2;
+
+    // This equation is the bread and butter for our transformations.
+    let transform = [[e0 * cos(a), -e1 * sin(a)], [e1 * sin(a),  e0 * cos(a)]];
+
+    // return the transformed qubit
+    return transform * q0;
+}
+
+fn Hadamard(q: qbit) : qbit {
+    let pi: f64 = 3.14;
+    return U(pi/2, 0, 0, q);
+}
+

examples/toss.ql

@@ -1,36 +1,4 @@
-// For small values
-fn sin(x: f64) : f64 {
-    x
-}
-
-// For small values
-fn cos(x: f64) : f64 {
-    1 - x
-}
-
-fn exp(x: f64) : f64 {
-    2.718 ** x
-}
-
-fn U (theta: f64, phi: f64, lambda: f64, q0: qbit) : qbit {
-    // U (θ,φ,λ) = [ε cos(θ/2)  -ε'sin(θ/2)]
-    //             [ε'sin(θ/2)   ε cos(θ/2)]
-    //               where ε = e^(-i(φ+λ)/2) and ε' = e^(-i(φ-λ)/2)
-    let e0 = exp ((phi + lambda) / 2);
-    let e1 = exp ((phi - lambda) / 2);
-    let a  = theta / 2;
-
-    // This equation is the bread and butter for our transformations.
-    let transform = [[e0 * cos(a), -e1 * sin(a)], [e1 * sin(a),  e0 * cos(a)]];
-
-    // return the transformed qubit
-    return transform * q0;
-}
-
-fn Hadamard(q: qbit) : qbit {
-    let pi = 3.14;
-    return U(pi/2, 0, 0, q);
-}
+import std::Hadamard;
 
 fn toss() : qbit {
     let zero_state = 0q(0, 1);  // represent a qubit in zero state simply as 0