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

Fix UE6 A1

Browse Source
This commit is contained in:
Ivaylo Ivanov 2021-11-23 18:43:45 +01:00
parent e55d7c4615
commit 0b837f76cf
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/Angabe6.hs
View File

@ -30,7 +30,6 @@ type Row = [Skalar]
construct_matrix :: MatrixF -> Zeile -> [Row] -> [Row] construct_matrix :: MatrixF -> Zeile -> [Row] -> [Row]
construct_matrix m rc res construct_matrix m rc res
| m == fehler = []
| rc > numrow = res | rc > numrow = res
| otherwise = | otherwise =
construct_matrix m (rc + 1) (res ++ [(construct_row f numcol rc 1 [])]) 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 :: MatrixF -> Bool
is_correct_matrix m is_correct_matrix m
| m == fehler = False
| fst t == height && snd t == width = True | fst t == height && snd t == width = True
| otherwise = False | otherwise = False
where where