tjhintz/schedule
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updating comments.

Browse Source
This commit is contained in:
Thomas Hintz
2016-09-02 01:09:35 -07:00
parent 1adff7d035
commit 4a0b9915a0
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app.scm
View File

@@ -160,12 +160,12 @@
(> (alist-ref 's x1) (alist-ref 's x2))))) (> (alist-ref 's x1) (alist-ref 's x2)))))
(score companies investors))) (score companies investors)))
;; find best match and return unmatched combinations ;; greedily find best match and return unmatched combinations
(define (match/remainder taken ranks) (define (match/remainder taken ranks)
(let ((mtch (find (lambda (x) (not (memq (alist-ref 'i x) 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) (receive (head tail) (span (lambda (x) (not (eq? x mtch))) ranks)
(if (null? tail) (if (null? tail)
(values #f head) (values #f head) ; no match found
(values (car tail) (append head (cdr tail))))))) (values (car tail) (append head (cdr tail)))))))
(define (allocate-round ranks) (define (allocate-round ranks)