Set 5a Ex 8: check length of output list

2026-10-12 19:13:39 +03:00 · 2024-09-13 13:25:25 +03:00
parent 8d9f004ed5
commit a228b07116
1 changed files with 1 additions and 1 deletions
@@ -130,7 +130,7 @@ ex8_green = $(testing [|rgb Green|]) (?==[0,1,0])
 ex8_blue = $(testing [|rgb Blue|]) (?==[0,0,1])

 fcmp expected actual =
-  expectation expected actual (diff < eps)
+  expectation expected actual (length expected == length actual && diff < eps)
  where diff = sum . map abs $ zipWith (-) actual expected
        eps = 0.01