Merge pull request #4 from ardeleanasm/qubits

#3 added qubit and utils modules

qchas.cabal

@@ -15,6 +15,8 @@ cabal-version:       >=1.10
 library
   hs-source-dirs:      src
   exposed-modules:     Lib
+                     , Utils
+                     , Qubits
   build-depends:       base >= 4.7 && < 5
   default-language:    Haskell2010
 

src/Qubits.hs

@@ -0,0 +1,24 @@
+module Qubits
+    ( 
+         qOne
+        ,qZero
+        ,qPlus
+        ,qMinus
+    ) where
+
+
+import Data.Complex
+import Data.List(transpose)
+import Utils
+
+qZero::Vector(Complex Double)
+qZero=complexVector[1,0]
+
+qOne::Vector(Complex Double)
+qOne=complexVector[0,1]
+
+qPlus::Vector(Complex Double)
+qPlus=complexVector[1/sqrt 2, 1/sqrt 2]
+
+qMinus::Vector(Complex Double)
+qMinus=complexVector[1/sqrt 2, -1/sqrt 2]

src/Utils.hs

@@ -0,0 +1,25 @@
+module Utils
+    ( 
+        Vector,
+        Matrix,
+        complexVector,
+        complexMatrix
+    ) where
+
+import Data.Complex
+import Data.List(transpose)
+
+-- Basic new types needed for defining qubits
+type Vector a=[a]
+type Matrix a=[Vector a]
+
+complexVector::Real a=>Vector a->Vector(Complex Double)
+complexVector=map(\i->realToFrac i:+0.0)
+
+complexMatrix::Real a=>Matrix a->Matrix(Complex Double)
+complexMatrix=map complexVector
+
+
+
+
+