From 141080d1c6d71cf4bab1853ca654916178d7eeca Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Mon, 2 Mar 2020 18:18:23 +0100 Subject: [PATCH] generic: Use collect-by-key/sets to collect the labels for state graphs. --- generic.rkt | 2 +- networks-tests.rkt | 16 ++++++++-------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/generic.rkt b/generic.rkt index 0571235..9028d14 100644 --- a/generic.rkt +++ b/generic.rkt @@ -41,7 +41,7 @@ [labels empty] [current-states states] [visited-states states] - #:result (collect-by-key edges labels)) + #:result (collect-by-key/sets edges labels)) ([i step-range] #:break (set-empty? current-states)) (for/fold ([new-edges empty] diff --git a/networks-tests.rkt b/networks-tests.rkt index c37b083..0283262 100644 --- a/networks-tests.rkt +++ b/networks-tests.rkt @@ -186,25 +186,25 @@ (#hash((a . #f) (b . #t)) #hash((a . #t) (b . #t))))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #f) (b . #f)) #hash((a . #t) (b . #f))) - (list (set 'a))) + (set (set 'a))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #f) (b . #f)) #hash((a . #f) (b . #f))) - (list (set 'b))) + (set (set 'b))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #t) (b . #f)) #hash((a . #t) (b . #f))) - (list (set 'b))) + (set (set 'b))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #t) (b . #f)) #hash((a . #f) (b . #f))) - (list (set 'a))) + (set (set 'a))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #t) (b . #t)) #hash((a . #f) (b . #t))) - (list (set 'a))) + (set (set 'a))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #t) (b . #t)) #hash((a . #t) (b . #t))) - (list (set 'b))) + (set (set 'b))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #f) (b . #t)) #hash((a . #f) (b . #t))) - (list (set 'b))) + (set (set 'b))) (check-equal? (edge-weight gr-complete-bool-ann #hash((a . #f) (b . #t)) #hash((a . #t) (b . #t))) - (list (set 'a))))) + (set (set 'a)))))