From 3db570910118aea6501b575f416d9207000d4832 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Wed, 31 Jul 2024 10:56:18 +0300
Subject: [PATCH] ZipCartesianFuncs.pas

---
 InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas

diff --git a/InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas b/InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas
new file mode 100644
index 000000000..166104f64
--- /dev/null
+++ b/InstallerSamples/WhatsNew/3_9_1/ZipCartesianFuncs.pas
@@ -0,0 +1,11 @@
+begin
+  Zip(1..5,2..6).Println;
+  Zip(1..5,2..6,(x,y) -> x+y).Println;
+  Zip(1..5,2..6,3..7).Println;
+  Zip(1..5,2..6,3..7,(x,y,z) -> x+y+z).Println;
+
+  Cartesian(1..4,3..5).Println;
+  Cartesian(1..4,3..5,(x,y) -> x*y).Println;
+  Cartesian(1..2,4..5,6..7).Println;
+  Cartesian(1..2,4..5,6..7,(x,y,z) -> x*y*z).Println;
+end.
\ No newline at end of file