From 226d053dca72eececdffc1a338521674b181a5aa Mon Sep 17 00:00:00 2001
From: Ivaylo Ivanov <me@ivayloivanov.eu>
Date: Thu, 4 Nov 2021 20:23:12 +0100
Subject: [PATCH] Add multiplication to UE3 A.4

---
 code/Angabe3.lhs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/code/Angabe3.lhs b/code/Angabe3.lhs
index 4ef6da0..f885d3b 100644
--- a/code/Angabe3.lhs
+++ b/code/Angabe3.lhs
@@ -1,5 +1,7 @@
 > module Angabe3 where
 
+> import Data.List
+
 1. Vervollstaendigen Sie gemaess Angabentext!
 2. Vervollst�ndigen Sie auch die vorgegebenen Kommentaranf�nge!
 3. Loeschen Sie keine Deklarationen aus diesem Rahmenprogramm, auch nicht die Modulanweisug!
@@ -109,7 +111,8 @@ Implement each of the num functions for the matrices
 > mult :: Matrix -> Matrix -> Matrix
 > mult (M m1) (M m2)
 >   | matrixtyp (M m1) == KeineMatrix || matrixtyp (M m2) == KeineMatrix = fehlerwert
->   | otherwise = M ([[0]])
+>   | length (head m1) /= length m2 = fehlerwert
+>   | otherwise = M [[ sum $ zipWith (*) x y | y <- (transpose m2) ] | x <- m1]
 
 > negation :: Matrix -> Matrix
 > negation (M m1)