Comments, shorter tests

1 files changed, 3 insertions, 3 deletions

diff --git a/AufgabeFFP5.hs b/AufgabeFFP5.hs
index 3fb926c..78ed0fe 100644
--- a/AufgabeFFP5.hs
+++ b/AufgabeFFP5.hs
@@ -41,7 +41,7 @@ compAS a t (i,j)
   | i<j = compAS a t (j,i)
   | otherwise = findTable t (i-1, j) + a!i
 
--- computes table for array
+-- computes distance-sum-table for array
 asTbl :: Array Int Int -> Table Int (Int, Int)
 asTbl a = dynamic (compAS a) (bndsAS a)
   
@@ -59,10 +59,10 @@ mas a = tblMax $ asTbl a
 
 -- all indices where the value equals to the maximum distance-sum
 amas :: Array Int Int -> [(Int, Int)]
-amas a = [(i,j) | ((i,j),v) <- (assocs array), i<=j, v>=m]
+amas a = [(i,j) | ((i,j),v) <- (assocs array), i<=j, v>=maxAS]
   where
     t@(Tbl array) = asTbl a
-    m = tblMax t
+    maxAS = tblMax t
 
 -------------------------------------------------------------------------------
 -- 3.