!290 rich-list%reduce in (liii lang)

GoldfishLang.tmu

@@ -4443,6 +4443,30 @@
     \;
   </goldfish-chunk>
 
+  \;
+
+  <paragraph|rich-list%reduce>
+
+  <\goldfish-chunk|goldfish/liii/lang.scm|true|true>
+    (define (%reduce f init)
+
+    \ \ (reduce f init data))
+
+    \;
+  </goldfish-chunk>
+
+  <\goldfish-chunk|tests/goldfish/liii/lang-test.scm|true|true>
+    (check ($ '() :reduce + 0) =\<gtr\> 0)
+
+    (check ($ '(1 2 3) :reduce + 0) =\<gtr\> 6) \ 
+
+    (check ($ '(2 3 4) :reduce * 1) =\<gtr\> 24) \ 
+
+    (check ($ '(5) :reduce (lambda (x y) (+ x y 10)) 0) =\<gtr\> 5)
+
+    \;
+  </goldfish-chunk>
+
   <section|转换器>
 
   <paragraph|rich-list%to-string>

goldfish/liii/lang.scm

@@ -878,6 +878,9 @@
                (loop (cons elem result) (cdr data) ht))
              (loop result (cdr data) ht)))))))
 
+(define (%reduce f init)
+  (reduce f init data))
+
 (define (%to-string)
   (object->string data))
 

tests/goldfish/liii/lang-test.scm

@@ -724,6 +724,11 @@
 (check  ($ '() :distinct :collect) 
         => '())
 
+(check ($ '() :reduce + 0) => 0)
+(check ($ '(1 2 3) :reduce + 0) => 6)  
+(check ($ '(2 3 4) :reduce * 1) => 24)  
+(check ($ '(5) :reduce (lambda (x y) (+ x y 10)) 0) => 5)
+
 (check (object->string ($ '(1 2 3))) => "(1 2 3)")
 
 (let1 l (rich-list (list 1 2 3))