summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2016-09-02 01:09:35 -0700
committerThomas Hintz <t@thintz.com>2016-09-02 01:09:35 -0700
commit4a0b9915a05b10c1eea89f0995159a55432f7a8b (patch)
treeb483ad535dd7d5fb44a1f85c6b015d6b77a03ea7
parent1adff7d03579aacaf0661665f15229b8c4599dd5 (diff)
downloadschedule-4a0b9915a05b10c1eea89f0995159a55432f7a8b.tar.gz
Updating comments.HEADmaster
-rw-r--r--app.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/app.scm b/app.scm
index 6d901d6..6f2f07f 100644
--- a/app.scm
+++ b/app.scm
@@ -160,12 +160,12 @@
(> (alist-ref 's x1) (alist-ref 's x2)))))
(score companies investors)))
-;; find best match and return unmatched combinations
+;; greedily find best match and return unmatched combinations
(define (match/remainder taken ranks)
(let ((mtch (find (lambda (x) (not (memq (alist-ref 'i x) taken))) ranks)))
(receive (head tail) (span (lambda (x) (not (eq? x mtch))) ranks)
(if (null? tail)
- (values #f head)
+ (values #f head) ; no match found
(values (car tail) (append head (cdr tail)))))))
(define (allocate-round ranks)