scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

network,build-interaction-graph: Use in-list.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-11-18 00:13:00 +01:00
parent d190f76fdf
commit af8428d275
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
networks.rkt
View file

@ -511,8 +511,8 @@
(define (build-interaction-graph network doms) (define (build-interaction-graph network doms)
(define vars (hash-keys network)) (define vars (hash-keys network))
(unweighted-graph/directed (unweighted-graph/directed
(for*/list ([x vars] (for*/list ([x (in-list vars)]
[y vars] [y (in-list vars)]
#:when (interaction? network doms x y)) #:when (interaction? network doms x y))
(list x y)))) (list x y))))