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

build-signed-interaction-graph: Use _.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-05-14 00:56:46 +02:00
parent 32b2e41634
commit 6c707ddba7
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

@ -316,8 +316,8 @@
(define (build-signed-interaction-graph network doms) (define (build-signed-interaction-graph network doms)
(weighted-graph/directed (weighted-graph/directed
(for*/fold ([edges '()]) (for*/fold ([edges '()])
([(x  x-val) (in-hash network)] ([(x _) (in-hash network)]
[(y  y-val) (in-hash network)]) [(y _) (in-hash network)])
(match (get-interaction-sign network doms x y) (match (get-interaction-sign network doms x y)
['0 edges] ['0 edges]
[sign (cons (list sign x y) edges)])))) [sign (cons (list sign x y) edges)]))))