master-blaster
Matthew Butterick 9 years ago
parent d37adca51e
commit 75f2168e25

@ -83,8 +83,8 @@ We can reuse our hash table of @racket[happiness-scores], but we have to update
(remove-duplicates (flatten (hash-keys happiness-scores)))) (remove-duplicates (flatten (hash-keys happiness-scores))))
(for* ([name (in-list names)] (for* ([name (in-list names)]
[proc (in-list (list list (compose1 reverse list)))]) [duo-proc (in-list (list list (compose1 reverse list)))])
(hash-set! happiness-scores (proc "me" name) 0)) (hash-set! happiness-scores (duo-proc "me" name) 0))
(define table-arrangement-scores (define table-arrangement-scores
(for/list ([partial-table-arrangement (in-permutations names)]) (for/list ([partial-table-arrangement (in-permutations names)])