Fix UE6 A1

2021-11-23 18:43:45 +01:00 · 2021-11-23 18:43:45 +01:00 · 0b837f76cf
commit 0b837f76cf
parent e55d7c4615
1 changed files with 0 additions and 2 deletions
--- a/code/Angabe6.hs
+++ b/code/Angabe6.hs
@ -30,7 +30,6 @@ type Row     = [Skalar]

 construct_matrix :: MatrixF -> Zeile -> [Row] -> [Row]
 construct_matrix m rc res
-   | m == fehler = []
   | rc > numrow = res
   | otherwise =
      construct_matrix m (rc + 1) (res ++ [(construct_row f numcol rc 1 [])])
@ -46,7 +45,6 @@ construct_row f numcol rc cc res

 is_correct_matrix :: MatrixF -> Bool
 is_correct_matrix m
-   | m == fehler = False
   | fst t == height && snd t == width = True
   | otherwise = False
   where