From f64aaf5960287f776232f909e145ac3f72fec73c Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sat, 13 Jul 2024 18:05:14 -0400 Subject: Add array:pairs() --- test/arrays.tm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'test') diff --git a/test/arrays.tm b/test/arrays.tm index fb6d16ca..ed43acb0 100644 --- a/test/arrays.tm +++ b/test/arrays.tm @@ -143,3 +143,16 @@ func main(): >> [i*10 for i in 10]:by(2):by(-1) = [90, 70, 50, 30, 10] + + do: + strs := ["A", "B", "C"] + >> ["{x}{y}" for x, y in strs:pairs()] + = ["AB", "AC", "BC"] + >> ["{x}{y}" for x, y in strs:pairs(self_pairs=yes)] + = ["AA", "AB", "AC", "BB", "BC", "CC"] + >> ["{x}{y}" for x, y in strs:pairs(ordered=yes)] + = ["AB", "AC", "BA", "BC", "CA", "CB"] + >> ["{x}{y}" for x, y in strs:pairs(self_pairs=yes, ordered=yes)] + = ["AA", "AB", "AC", "BA", "BB", "BC", "CA", "CB", "CC"] + >> ["!" for x,y in [:Text]:pairs()] + = [] -- cgit v1.2.3