add some more functions

d-.scm

@@ -1,8 +1,10 @@
 (define-module (d-)
+  #:use-module (srfi srfi-1)
   #:export
   (~>
    ~>>
-   partial))
+   partial
+   argmin))
 
 (define-syntax ~>
   (syntax-rules ()
@@ -18,3 +20,11 @@
 
 (define (partial fn . args)
   (lambda x (apply fn (append args x))))
+
+(define (argmin f . vals)
+  (reduce (lambda (val min)
+	    (if (< (f val) (f min))
+		val
+		min))
+	  #f
+	  vals))

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)))))