From 451a728117274bba01a125ab3f7114a88651a986 Mon Sep 17 00:00:00 2001
From: Jakob Scheid <jakob.scheid@icloud.com>
Date: Thu, 19 Mar 2026 15:39:24 +0100
Subject: [PATCH] Problem 11

---
 .../ninetyNineScalaProblems/Problem11.scala     | 17 +++++++++++++++++
 .../Problem11Suite.scala                        | 17 +++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 src/main/scala/ninetyNineScalaProblems/Problem11.scala
 create mode 100644 src/test/scala/ninetyNineScalaProblems/Problem11Suite.scala

diff --git a/src/main/scala/ninetyNineScalaProblems/Problem11.scala b/src/main/scala/ninetyNineScalaProblems/Problem11.scala
new file mode 100644
index 0000000..f5ac15c
--- /dev/null
+++ b/src/main/scala/ninetyNineScalaProblems/Problem11.scala
@@ -0,0 +1,17 @@
+package ninetyNineScalaProblems
+
+import scala.annotation.tailrec
+
+object Problem11:
+    def modifiedRunLengthEncode(list: List[Any]): List[Tuple2[Int, Any] | Any] =
+        @tailrec
+        def loop(cursor: List[Tuple2[Int, Any]], acc: List[Tuple2[Int, Any] | Any]): List[Tuple2[Int, Any] | Any] =
+            cursor match
+                case d :: tail if d._1 > 1 =>
+                    loop(tail, (d._1, d._2) :: acc)
+                case d :: tail =>
+                    loop(tail, d._2 :: acc)
+                case Nil =>
+                    acc
+
+        loop(Problem10.runLengthEncode(list), List()).reverse
\ No newline at end of file
diff --git a/src/test/scala/ninetyNineScalaProblems/Problem11Suite.scala b/src/test/scala/ninetyNineScalaProblems/Problem11Suite.scala
new file mode 100644
index 0000000..b53adf9
--- /dev/null
+++ b/src/test/scala/ninetyNineScalaProblems/Problem11Suite.scala
@@ -0,0 +1,17 @@
+package ninetyNineScalaProblems
+
+import scala.compiletime.ops.boolean
+
+class Problem11Suite extends munit.FunSuite:
+    List(
+        (List(1, 2, 3, 4), List(1, 2, 3, 4)),
+        (List(1, 2, 2, 3), List(1, (2, 2), 3)),
+        (List(1, 2, 3, 2), List(1, 2, 3, 2)),
+        (List(), List()),
+        (List(1), List(1)),
+        (List(1, 1), List((2, 1))),
+        (List(1, 1, 1, 1, 2, 3, 3, 1, 1, 4, 5, 5, 5, 5), List((4, 1), 2, (2, 3), (2, 1), 4, (4, 5)))
+    ).foreach:
+        case (list, expected) =>
+            test(s"modifiedRunLengthEncode returns [$expected]"):
+                assertEquals(Problem11.modifiedRunLengthEncode(list), expected)
\ No newline at end of file