Not logged in.  Login/Logout/Register | List snippets | | Create snippet | Upload image | Upload data

29
LINES

< > BotCompany Repo | #1009481 // clusters_add - add relations to a cluster list (Map<A, L<A>>)

JavaX fragment (include)

1  
static <A> L<A> clusters_add(Map<A, L<A>> clusters, L<A> l) {
2  
  for (int i = 0; i < l(l)-1; i++)
3  
    clusters_add(clusters, l.get(i), l.get(i+1));
4  
  ret clusters.get(first(l));
5  
}
6  
7  
static <A> void clusters_add(Map<A, L<A>> clusters, A a, A b) {
8  
  if (eq(a, b)) {
9  
    L<A> cluster = clusters.get(a);
10  
    if (cluster == null)
11  
      clusters.put(a, litlist(a));
12  
    ret;
13  
  }
14  
  
15  
  L<A> clusterA = clusters.get(a);
16  
  L<A> clusterB = clusters.get(b);
17  
  if (clusterA == null && clusterB == null) {
18  
    L<A> cluster = ll(a, b);
19  
    clusters.put(a, cluster);
20  
    clusters.put(b, cluster);
21  
  } else if (clusterA == null) {
22  
    clusterB.add(a);
23  
    clusters.put(a, clusterB);
24  
  } else if (clusterB == null) {
25  
    clusterA.add(b);
26  
    clusters.put(b, clusterA);
27  
  } else if (clusterA != clusterB)
28  
    clusters_merge(clusters, clusterA, clusterB);
29  
}

download  show line numbers  debug dex  old transpilations   

Travelled to 13 computer(s): aoiabmzegqzx, bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tslmcundralx, tvejysmllsmz, vouqrxazstgt

No comments. add comment

Snippet ID: #1009481
Snippet name: clusters_add - add relations to a cluster list (Map<A, L<A>>)
Eternal ID of this version: #1009481/4
Text MD5: 2c271f9a9faa09827d7d1ffb34b49dd5
Author: stefan
Category: javax / math
Type: JavaX fragment (include)
Public (visible to everyone): Yes
Archived (hidden from active list): No
Created/modified: 2017-09-07 16:52:10
Source code size: 863 bytes / 29 lines
Pitched / IR pitched: No / No
Views / Downloads: 449 / 461
Version history: 3 change(s)
Referenced in: [show references]