!255 rich-list%reverse in (liii lang)

* fix bug * rich-list%reverse in (liii lang)
LiiiLabs · Feb 27, 2025 · 114929e · 114929e
1 parent 9081134
commit 114929e
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 0 deletions.
diff --git a/GoldfishLang.tmu b/GoldfishLang.tmu
@@ -3329,6 +3329,36 @@
     \;
   </scm-chunk>
 
+  <paragraph|rich-list%reverse>
+
+  <\goldfish-chunk|goldfish/liii/lang.scm|true|true>
+    \ \ (chained-define (%reverse)
+
+    \ \ \ \ (rich-list (reverse data)))
+
+    \ \ \ \ 
+  </goldfish-chunk>
+
+  <\goldfish-chunk|tests/goldfish/liii/lang-test.scm|true|true>
+    (let ((lst (rich-list '(1 2 3 4 5))))
+
+    \ \ (check (lst :reverse :collect) =\<gtr\> '(5 4 3 2 1)))
+
+    \;
+
+    (let ((lst (rich-list '(a b c d e))))
+
+    \ \ (check (lst :reverse :collect) =\<gtr\> '(e d c b a)))
+
+    \;
+
+    (let ((lst (rich-list '())))
+
+    \ \ (check (lst :reverse :collect) =\<gtr\> '()))
+
+    \;
+  </goldfish-chunk>
+
   <paragraph|rich-list%take>
 
   <\scm-chunk|goldfish/liii/lang.scm|true|true>

diff --git a/goldfish/liii/lang.scm b/goldfish/liii/lang.scm
@@ -680,6 +680,9 @@
   (define (%for-each x)
     (for-each x data))
 
+  (chained-define (%reverse)
+    (rich-list (reverse data)))
+
   (define (%take x . xs)
     (typed-define (scala-take (data list?) (n integer?))
       (cond ((< n 0) '())

diff --git a/tests/goldfish/liii/lang-test.scm b/tests/goldfish/liii/lang-test.scm
@@ -529,6 +529,15 @@
   (check-true (l :contains 1))
   (check-false (l :contains 4)))
 
+(let ((lst (rich-list '(1 2 3 4 5))))
+  (check (lst :reverse :collect) => '(5 4 3 2 1)))
+
+(let ((lst (rich-list '(a b c d e))))
+  (check (lst :reverse :collect) => '(e d c b a)))
+
+(let ((lst (rich-list '())))
+  (check (lst :reverse :collect) => '()))
+
 (let ((lst (rich-list '(1 2 3 4 5))))
   (check (lst :take -1 :collect) => '())
   (check (lst :take 0 :collect) => '())