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