From 864d1c6fe182661a7bd7d4eda928f8a19318b651 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 9 Jun 2021 23:35:38 -0700 Subject: reduce-left: rewrite using seq_iter. * lib.c (reduce_left): Use sequence iteration instead of list operations. * txr.1: Add a note to the documentation. --- tests/012/seq.tl | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests/012/seq.tl') diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 49d4046b..95ba7b6e 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -72,3 +72,13 @@ (lambda (. args) (/ (sum args) 5)) #(4 7 9 13 5 1 6 11 10 3 8)] #(4.0 6.6 7.6 7.0 6.8 7.2 6.6 6.2 7.6 6.4 4.2)) + +(mtest + [reduce-left + () 0] 0 + [reduce-left + ()] 0 + [reduce-left cons ()] :error + [reduce-left cons '(1)] 1 + [reduce-left cons #(1)] 1 + [reduce-left cons #(1) : (op * 10)] 10 + [reduce-left cons #(1) 2 (op * 10)] (2 . 10) + [reduce-left cons #(2 3) 10 (op * 10)] ((10 . 20) . 30)) -- cgit v1.2.3