Problem 09

2026-03-19 15:39:22 +01:00
parent 659d211d8c
commit 7e6ea14b44
2 changed files with 120 additions and 0 deletions
@@ -0,0 +1,54 @@
+package ninetyNineScalaProblems
+
+import scala.compiletime.ops.boolean
+
+class Problem09Suite extends munit.FunSuite:
+    List(
+        (List(1, 2, 3, 4), false),
+        (List(1, 2),  false),
+        (List(1, 1),  true),
+        (List(), true),
+        (List(1), true),
+    ).foreach:
+        case (list, expected) =>
+            test(s"sameValueRepeatedAnyTime returns [$expected]"):
+                assertEquals(Problem09.sameValueRepeatedAnyTime(list), expected)
+
+    List(
+        (List(1, 2, 3, 4), 1),
+        (List(1, 1, 2, 3, 4), 2),
+        (List(2, 1, 2, 3, 4), 1),
+        (List(2, 1, 2, 2, 2), 1),
+        (List(2, 2, 2, 2, 2), 5),
+        (List(2, 3, 2, 2, 2), 1),
+        (List(1, 2),  1),
+        (List(1, 1),  2),
+        (List(), 0),
+        (List(1), 1),
+    ).foreach:
+        case (list, expected) =>
+            test(s"countRepititions returns [$expected]"):
+                assertEquals(Problem09.countRepititions(list), expected)
+
+    List(
+        ((List(1, 2, 3, 4), 0), List(1, 2, 3, 4)),
+        ((List(1, 2, 3, 4), 1), List(2, 3, 4)),
+        ((List(1, 2), 1), List(2)),
+        ((List(1, 2), 2), List()),
+        ((List(), 0), List()),
+    ).foreach:
+        case ((list, n), expected) =>
+            test(s"nthElementToEnd returns [$expected]")
+                assertEquals(Problem09.nthElementToEnd(list, n), expected)
+
+    List(
+        (List(1, 2, 3, 4), List(List(1), List(2), List(3), List(4))),
+        (List(1, 2, 2, 3),  List(List(1), List(2, 2), List(3))),
+        (List(1, 2, 3, 2),  List(List(1), List(2), List(3), List(2))),
+        (List(), List()),
+        (List(1), List(List(1))),
+        (List(1, 1, 1, 1, 2, 3, 3, 1, 1, 4, 5, 5, 5, 5), List(List(1, 1, 1, 1), List(2), List(3, 3), List(1, 1), List(4), List(5, 5, 5, 5))),
+    ).foreach:
+        case (list, expected) =>
+            test(s"consecutiveDuplicatesIntoSublists returns [$expected]"):
+                assertEquals(Problem09.consecutiveDuplicatesIntoSublists(list), expected)