From 3450c06137836d4cb00d5f98d8490c85948913c0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 15 Apr 2022 00:33:56 -0700 Subject: cons: ldiff, last, butlast: doc, tests, fixes. --- testcases-cons | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) (limited to 'testcases-cons') diff --git a/testcases-cons b/testcases-cons index 6211be6..6b7751d 100644 --- a/testcases-cons +++ b/testcases-cons @@ -619,3 +619,33 @@ nil (1 2 3) (3) (1 2 3) +-- +34: +$cppawk ' +#include + +BEGIN { + print sexp(ldiff(list(1, 2, 3, 4), list(3, 4))) + print sexp(ldiff(list(1, 2, 3, 4), list(1, 2, 3, 4))) + print sexp(ldiff(list(1, 2, 3, 4), list(4))) + print sexp(ldiff(list(1, 2, 3, 4), list(5, 6))) + print sexp(ldiff(list(1, 2, 3, 4), "abc")) + print sexp(ldiff(cons(1, cons(2, 3)), 3)) + print sexp(last(list(1, 2, 3))) + print sexp(last(list(1, 2, 3), 2)) + print sexp(last(cons(1, cons(2, 3)), 0)) + print sexp(butlast(list(1, 2, 3), 2)) + print sexp(butlast(list(1, 2, 3), 15)) +}' +: +(1 2) +nil +(1 2 3) +(1 2 3 4) +(1 2 3 4) +(1 2) +(3) +(2 3) +3 +(1) +nil -- cgit v1.2.3