add some more functions

2024-10-25 15:16:04 -05:00
parent 76b11b0cf5
commit f3d47afc5f
2 changed files with 14 additions and 2 deletions
--- a/test.scm
+++ b/test.scm
@@ -29,4 +29,6 @@
   (assert (= (value 4) 1/2))
   (assert (= (value 1) 2))))

-
+(define-test argmin
+  (test
+   (assert (equal? (argmin cdr '(a . 5) '(b . 2) '(c . 3)) '(b . 2)))))