tu-wien/fprog2021WS
Archived
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add sign function to UE3 A.4

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-04 20:17:26 +01:00
parent 57b468af75
commit 2123b282bc
1 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
code/Angabe3.lhs
View File

@ -83,6 +83,8 @@ Solution:
Aufgabe A.4 Aufgabe A.4
Implement each of the num functions for the matrices
> instance Num Matrix where > instance Num Matrix where
> (+) m1 m2 = (add m1 m2) > (+) m1 m2 = (add m1 m2)
> (-) m1 m2 = (diff m1 m2) > (-) m1 m2 = (diff m1 m2)
@ -122,14 +124,23 @@ Aufgabe A.4
> sign :: Matrix -> Matrix > sign :: Matrix -> Matrix
> sign (M m1) > sign (M m1)
> | matrixtyp (M m1) == KeineMatrix = error "Vorzeichenfunktion undefiniert" > | matrixtyp (M m1) == KeineMatrix = error "Vorzeichenfunktion undefiniert"
> | [True] `elem` negative && [False] `elem` negative = error "Vorzeichenfunktion undefiniert" > | True `elem` negative =
> | [True] `elem` positive && [False] `elem` positive = error "Vorzeichenfunktion undefiniert" > if False `elem` negative then error "Vorzeichenfunktion undefiniert"
> | [True] `elem` nulls && [False] `elem` nulls = error "Vorzeichenfunktion undefiniert" > else M([[-1]])
> | [True] `elem` nulls = M([[0]]) > | True `elem` positive =
> | [True] `elem` positive = M([[1]]) > if False `elem` positive then error "Vorzeichenfunktion undefiniert"
> | [True] `elem` negative = M([[-1]]) > else M([[1]])
> | True `elem` nulls =
> if False `elem` nulls then error "Vorzeichenfunktion undefiniert"
> else M([[0]])
> | otherwise = error "Vorzeichenfunktion undefiniert" > | otherwise = error "Vorzeichenfunktion undefiniert"
> where > where
> negative = map (map (<0)) m1 > negative = boolMatrixToList (map (map (<0)) m1) []
> nulls = map (map (==0)) m1 > nulls = boolMatrixToList (map (map (==0)) m1) []
> positive = map (map (>0)) m1 > positive = boolMatrixToList (map (map (>0)) m1) []
> boolMatrixToList :: [[Bool]] -> [Bool] -> [Bool]
> boolMatrixToList (m:ms) res
> | null m = res
> | length m /= 0 && null ms = res ++ m
> | otherwise = boolMatrixToList ms (res ++ m)