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

29
LINES

< > BotCompany Repo | #1014762 // ciClusters_add - add relations to a cluster list

JavaX fragment (include)

1  
static Collection<S> ciClusters_add(Clusters<S> clusters, L<S> l) {
2  
  for (int i = 0; i < l(l)-1; i++)
3  
    ciClusters_add(clusters, l.get(i), l.get(i+1));
4  
  ret clusters.get(first(l));
5  
}
6  
7  
static void ciClusters_add(Clusters<S> clusters, S a, S b) {
8  
  if (eqic(a, b)) {
9  
    Collection<S> cluster = clusters.get(a);
10  
    if (cluster == null)
11  
      clusters.put(a, litciset(a));
12  
    ret;
13  
  }
14  
  
15  
  Collection<S> clusterA = clusters.get(a);
16  
  Collection<S> clusterB = clusters.get(b);
17  
  if (clusterA == null && clusterB == null) {
18  
    L<S> 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  
    treeSetClusters_merge(clusters, clusterA, clusterB);
29  
}

Author comment

Began life as a copy of #1010458

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: #1014762
Snippet name: ciClusters_add - add relations to a cluster list
Eternal ID of this version: #1014762/3
Text MD5: d474a0b9ac986faafef7367947fe704a
Author: stefan
Category: javax / math
Type: JavaX fragment (include)
Public (visible to everyone): Yes
Archived (hidden from active list): No
Created/modified: 2018-05-01 20:25:07
Source code size: 905 bytes / 29 lines
Pitched / IR pitched: No / No
Views / Downloads: 433 / 444
Version history: 2 change(s)
Referenced in: [show references]