Must provide a predicate to argmin

2024-11-11 15:38:13 -06:00
parent 56594fd146
commit 87384f611c
2 changed files with 3 additions and 3 deletions
--- a/d-.scm
+++ b/d-.scm
@@ -48,9 +48,9 @@
 (define (partial fn . args)
  (lambda x (apply fn (append args x))))

-(define (argmin f . vals)
+(define (argmin arg lt? . vals)
  (reduce (lambda (val min)
-	    (if (< (f val) (f min))
+	    (if (lt? (arg val) (arg min))
 		val
 		min))
 	  #f