From 60b81a602af165065ecc6b0f9ad9b8f836002e85 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 20 Oct 2018 10:54:28 -0700 Subject: [PATCH] misc --- csp/hacs.rkt | 2 -- 1 file changed, 2 deletions(-) diff --git a/csp/hacs.rkt b/csp/hacs.rkt index 9766691c..2c809fb9 100644 --- a/csp/hacs.rkt +++ b/csp/hacs.rkt @@ -185,7 +185,6 @@ (procedure? (non-empty-listof any/c) . -> . any/c) (let* ([xs (sort xs < #:key proc)] [xs (takef xs (λ (x) (= (proc (car xs)) (proc x))))] - ;; don't shuffle short lists, not worth it [xs ((if (current-shuffle) shuffle values) xs)]) (first xs))) @@ -197,7 +196,6 @@ (define mrv minimum-remaining-values) - (define/contract (var-degree csp var) (csp? $var? . -> . exact-nonnegative-integer?) (for/sum ([constraint (in-constraints csp)]