From 037c55a43daef40a9a7f4339435b441bf6873d4d Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Sun, 19 Nov 2023 23:51:47 -0500
Subject: [PATCH] tailrec

---
 tests/core/t_list.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/core/t_list.ml b/tests/core/t_list.ml
index caff2050..4bc6ffb1 100644
--- a/tests/core/t_list.ml
+++ b/tests/core/t_list.ml
@@ -233,13 +233,13 @@ combine [ 1; 2; 3 ] [ 3; 2; 1 ] = List.combine [ 1; 2; 3 ] [ 3; 2; 1 ]
 ;;
 
 t @@ fun () ->
-combine (1 -- 100_000) (1 -- 100_000)
-= List.combine (1 -- 100_000) (1 -- 100_000)
+combine (1 -- 10_000) (1 -- 10_000) = List.combine (1 -- 10_000) (1 -- 10_000)
 ;;
 
 t @@ fun () ->
-combine (1 -- 300_000) (1 -- 300_000)
-= List.combine (1 -- 300_000) (1 -- 300_000)
+combine (1 -- 300_000) (map string_of_int @@ (1 -- 300_000))
+= map (fun (x, y) -> y, x)
+  @@ combine (map string_of_int @@ (1 -- 300_000)) (1 -- 300_000)
 ;;
 
 q