feat(stdlib)!: Support zipping arrays of different sizes (#1402)

closes #1395

Author: spotandjake

compiler/test/stdlib/array.test.gr

@@ -237,6 +237,16 @@ let arrB = [> 5, 4, 3, 2, 1]
 
 assert Array.zip(arrA, arrB) == [> (1, 5), (2, 4), (3, 3), (4, 2), (5, 1)]
 
+let arrA = [> 1, 2, 3, 4, 5]
+let arrB = [> 5, 4, 3, 2, 1, 6, 7]
+
+assert Array.zip(arrA, arrB) == [> (1, 5), (2, 4), (3, 3), (4, 2), (5, 1)]
+
+let arrA = [> 1, 2, 3, 4, 5, 6, 7]
+let arrB = [> 5, 4, 3, 2, 1]
+
+assert Array.zip(arrA, arrB) == [> (1, 5), (2, 4), (3, 3), (4, 2), (5, 1)]
+
 // Array.zipWith
 
 let addFn = (a, b) => a + b

stdlib/array.gr

@@ -807,16 +807,15 @@ export let unique = array => {
  * @throws Failure(String): When the arrays have different sizes
  *
  * @since v0.4.0
+ * @history v0.5.3: Support zipping arrays of different sizes
  */
 export let zip = (array1: Array<a>, array2: Array<b>) => {
   let len = length(array1)
-  if (len != length(array2)) {
-    fail "arguments to zip must be same length"
-  } else {
-    init(len, n => {
-      (array1[n], array2[n])
-    })
-  }
+  let len2 = length(array2)
+  let len = if (len > len2) len2 else len
+  init(len, n => {
+    (array1[n], array2[n])
+  })
 }
 
 /**

stdlib/array.md

@@ -1000,9 +1000,16 @@ Returns:
 
 ### Array.**zip**
 
-<details disabled>
-<summary tabindex="-1">Added in <code>0.4.0</code></summary>
-No other changes yet.
+<details>
+<summary>Added in <code>0.4.0</code></summary>
+<table>
+<thead>
+<tr><th>version</th><th>changes</th></tr>
+</thead>
+<tbody>
+<tr><td><code>next</code></td><td>Support zipping arrays of different sizes</td></tr>
+</tbody>
+</table>
 </details>
 
 ```grain