From 7dc8a2f21edc15626319d1a45dac529f64d7818d Mon Sep 17 00:00:00 2001
From: Yan Wittmann <2121578@stud.hs-mannheim.de>
Date: Mon, 24 Oct 2022 09:10:05 +0200
Subject: [PATCH] Complex Number Type

---
 .../src => aufgaben/src/01}/Aufgabe_01.elm    |  0
 .../src => aufgaben/src/01}/Aufgabe_01_2.elm  |  0
 .../src => aufgaben/src/01}/Aufgabe_01_3.elm  |  0
 .../src/01}/Aufgabe_01_musterloesung.elm      |  0
 {aufgabe-01 => aufgaben}/src/Main.elm         |  0
 aufgaben/src/complex/Aufgabe_Complex.elm      | 21 +++++++++++++++++++
 aufgaben/src/complex/Aufgabe_Complex_Type.elm | 15 +++++++++++++
 7 files changed, 36 insertions(+)
 rename {aufgabe-01/src => aufgaben/src/01}/Aufgabe_01.elm (100%)
 rename {aufgabe-01/src => aufgaben/src/01}/Aufgabe_01_2.elm (100%)
 rename {aufgabe-01/src => aufgaben/src/01}/Aufgabe_01_3.elm (100%)
 rename {aufgabe-01/src => aufgaben/src/01}/Aufgabe_01_musterloesung.elm (100%)
 rename {aufgabe-01 => aufgaben}/src/Main.elm (100%)
 create mode 100644 aufgaben/src/complex/Aufgabe_Complex.elm
 create mode 100644 aufgaben/src/complex/Aufgabe_Complex_Type.elm

diff --git a/aufgabe-01/src/Aufgabe_01.elm b/aufgaben/src/01/Aufgabe_01.elm
similarity index 100%
rename from aufgabe-01/src/Aufgabe_01.elm
rename to aufgaben/src/01/Aufgabe_01.elm
diff --git a/aufgabe-01/src/Aufgabe_01_2.elm b/aufgaben/src/01/Aufgabe_01_2.elm
similarity index 100%
rename from aufgabe-01/src/Aufgabe_01_2.elm
rename to aufgaben/src/01/Aufgabe_01_2.elm
diff --git a/aufgabe-01/src/Aufgabe_01_3.elm b/aufgaben/src/01/Aufgabe_01_3.elm
similarity index 100%
rename from aufgabe-01/src/Aufgabe_01_3.elm
rename to aufgaben/src/01/Aufgabe_01_3.elm
diff --git a/aufgabe-01/src/Aufgabe_01_musterloesung.elm b/aufgaben/src/01/Aufgabe_01_musterloesung.elm
similarity index 100%
rename from aufgabe-01/src/Aufgabe_01_musterloesung.elm
rename to aufgaben/src/01/Aufgabe_01_musterloesung.elm
diff --git a/aufgabe-01/src/Main.elm b/aufgaben/src/Main.elm
similarity index 100%
rename from aufgabe-01/src/Main.elm
rename to aufgaben/src/Main.elm
diff --git a/aufgaben/src/complex/Aufgabe_Complex.elm b/aufgaben/src/complex/Aufgabe_Complex.elm
new file mode 100644
index 0000000..ebeefc6
--- /dev/null
+++ b/aufgaben/src/complex/Aufgabe_Complex.elm
@@ -0,0 +1,21 @@
+module Aufgabe_Complex exposing (..)
+
+type alias Complex = { real : Float, imaginary : Float }
+
+fromTuple : ( Float, Float ) -> Complex
+fromTuple ( r, i ) = Complex r i
+
+fromFloat : Float -> Complex
+fromFloat r = Complex r 0
+
+real : Complex -> Float
+real c = c.real
+
+imaginary : Complex -> Float
+imaginary c = c.imaginary
+
+
+
+c1 = fromTuple ( 1 , 2 )
+c2 = fromFloat 3
+
diff --git a/aufgaben/src/complex/Aufgabe_Complex_Type.elm b/aufgaben/src/complex/Aufgabe_Complex_Type.elm
new file mode 100644
index 0000000..cc5baed
--- /dev/null
+++ b/aufgaben/src/complex/Aufgabe_Complex_Type.elm
@@ -0,0 +1,15 @@
+module Aufgabe_Complex_Type exposing (..)
+
+type Complex = Complex Float Float
+
+fromTuple : (Float, Float) -> Complex
+fromTuple (r, i) = Complex r i
+
+fromFloat : Float -> Complex
+fromFloat r = Complex r 0
+
+real : Complex -> Float
+real c = case c of Complex r i -> r
+
+imaginary : Complex -> Float
+imaginary c = case c of Complex r i -> i