Merge branch 'main' into feature/result

moonbitlang · Mar 12, 2024 · 2996e92 · 2996e92
2 parents c22c3c7 + 031a0d6
commit 2996e92
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/array/array.mbt b/array/array.mbt
@@ -180,3 +180,20 @@ test "from_array" {
   let array = Array::[1, 2, 3, 4, 5]
   @assertion.assert_eq(array, [1, 2, 3, 4, 5])?
 }
+
+pub fn fold[T, U](self : Array[T], f : (T, U) -> U, init : U) -> U {
+  loop 0, init {
+    i, acc =>
+      if i < self.length() {
+        continue i + 1,
+          f(self[i], acc)
+      } else {
+        acc
+      }
+  }
+}
+
+test "fold" {
+  let sum = [1, 2, 3, 4, 5].fold(fn(elem, sum : Int) { sum + elem }, 0)
+  @assertion.assert_eq(sum, 15)?
+}