From aa0485fe33204169724d020f9c5e3b91e558ab1e Mon Sep 17 00:00:00 2001 From: ubq323 Date: Tue, 23 Jul 2024 17:00:56 +0100 Subject: add pend builtin function --- tests/pend.bth | 25 +++++++++++++++++++++++++ tests/pend.out | 19 +++++++++++++++++++ 2 files changed, 44 insertions(+) create mode 100644 tests/pend.bth create mode 100644 tests/pend.out (limited to 'tests') diff --git a/tests/pend.bth b/tests/pend.bth new file mode 100644 index 0000000..9a37f00 --- /dev/null +++ b/tests/pend.bth @@ -0,0 +1,25 @@ +(def xs [ + (, 10) + (, [100 200]) + + (, 22 33) + (, 11 [111 222]) + (, [333 444] 99) + (, [555 666] [777 888]) + + (, 10 11 12) + (, 10 11 [20 30]) + (, 10 [222 333] 99) + (, 10 [22 33] [44 55]) + (, [100 200] 33 44) + (, [100 200] 33 [444 555]) + (, [100 200] [33 44] 55) + (, [100 200] [333 444] [555 666]) + + (, []) + (, [1]) + (, 10 []) + (, [] 20) + (, [] []) +]) +(each (x xs) (say x)) diff --git a/tests/pend.out b/tests/pend.out new file mode 100644 index 0000000..44239f7 --- /dev/null +++ b/tests/pend.out @@ -0,0 +1,19 @@ +[ 10 ] +[ 100 200 ] +[ 22 33 ] +[ 11 111 222 ] +[ 333 444 99 ] +[ 555 666 777 888 ] +[ 10 11 12 ] +[ 10 11 20 30 ] +[ 10 222 333 99 ] +[ 10 22 33 44 55 ] +[ 100 200 33 44 ] +[ 100 200 33 444 555 ] +[ 100 200 33 44 55 ] +[ 100 200 333 444 555 666 ] +[ ] +[ 1 ] +[ 10 ] +[ 20 ] +[ ] -- cgit v1.2.3