1 | #Region "Microsoft.VisualBasic::51299ecbb99130ea2e39faed48d3df7a, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\base\Combination\Comb.vb" |
2 | |
3 | ' Author: |
4 | ' |
5 | ' asuka (amethyst.asuka@gcmodeller.org) |
6 | ' xie (genetics@smrucc.org) |
7 | ' xieguigang (xie.guigang@live.com) |
8 | ' |
9 | ' Copyright (c) 2018 GPL3 Licensed |
10 | ' |
11 | ' |
12 | ' GNU GENERAL PUBLIC LICENSE (GPL3) |
13 | ' |
14 | ' |
15 | ' This program is free software: you can redistribute it and/or modify |
16 | ' it under the terms of the GNU General Public License as published by |
17 | ' the Free Software Foundation, either version 3 of the License, or |
18 | ' (at your option) any later version. |
19 | ' |
20 | ' This program is distributed in the hope that it will be useful, |
21 | ' but WITHOUT ANY WARRANTY; without even the implied warranty of |
22 | ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
23 | ' GNU General Public License for more details. |
24 | ' |
25 | ' You should have received a copy of the GNU General Public License |
26 | ' along with this program. If not, see <http://www.gnu.org/licenses/>. |
27 | |
28 | |
29 | |
30 | ' /********************************************************************************/ |
31 | |
32 | ' Summaries: |
33 | |
34 | ' Class Comb |
35 | ' |
36 | ' Properties: CombList, EOL, NewLine |
37 | ' |
38 | ' Constructor: (+1 Overloads) Sub New |
39 | ' Function: __internalQuery, CreateCompleteObjectPairs, CreateObject, GetObjectPair, ToString |
40 | ' |
41 | ' |
42 | ' /********************************************************************************/ |
43 | |
44 | #End Region |
45 | |
46 | Imports Microsoft.VisualBasic.Language |
47 | Imports Microsoft.VisualBasic.Linq |
48 | |
49 | Namespace ComponentModel.Algorithm.base |
50 | |
51 | ''' <summary> |
52 | ''' 对象类型的组合输出工具,即目标类型的集合之中的元素两两组合配对 |
53 | ''' </summary> |
54 | ''' <remarks></remarks> |
55 | Public Class Comb(Of T) |
56 | |
57 | Dim source As List(Of T) |
58 | Dim p As Integer = 1 |
59 | |
60 | ''' <summary> |
61 | ''' 对象列表是否已经完全组合输出 |
62 | ''' </summary> |
63 | ''' <value></value> |
64 | ''' <returns></returns> |
65 | ''' <remarks></remarks> |
66 | Public ReadOnly Property EOL As Boolean |
67 | Get |
68 | Return Not source.Count >= 2 |
69 | End Get |
70 | End Property |
71 | |
72 | ''' <summary> |
73 | ''' 是否已经开始读取新的一行数据 |
74 | ''' </summary> |
75 | ''' <value></value> |
76 | ''' <returns></returns> |
77 | ''' <remarks></remarks> |
78 | Public ReadOnly Property NewLine As Boolean = True |
79 | |
80 | Public ReadOnly Property CombList As Tuple(Of T, T)()() |
81 | Get |
82 | Dim out As Tuple(Of T, T)()() = __internalQuery.ToArray |
83 | Return out |
84 | End Get |
85 | End Property |
86 | |
87 | Private Function __internalQuery() As IEnumerable(Of Tuple(Of T, T)()) |
88 | Return From index As Integer |
89 | In source.Sequence _ |
90 | .Take(source.Count - 1) _ |
91 | .AsParallel |
92 | Let combTuples = { |
93 | _ |
94 | From offset As Integer |
95 | In source.Skip(index + 1).Sequence |
96 | Let b = index + 1 |
97 | Select New Tuple(Of T, T)(source(index), source(b + offset)) |
98 | } |
99 | Select array = combTuples _ |
100 | .IteratesALL _ |
101 | .ToArray |
102 | Order By array.Length Descending |
103 | End Function |
104 | |
105 | Public Function GetObjectPair() As (T, T) |
106 | If source.Count = 1 Then |
107 | Return Nothing |
108 | End If |
109 | |
110 | If p < source.Count Then |
111 | Dim o As T = source(p) |
112 | _NewLine = False |
113 | p += 1 |
114 | Return (source(0), o) |
115 | Else |
116 | source.RemoveAt(0) |
117 | p = 1 |
118 | Dim pair As (T, T) = GetObjectPair() |
119 | _NewLine = True |
120 | |
121 | Return pair |
122 | End If |
123 | End Function |
124 | |
125 | Friend Sub New() |
126 | End Sub |
127 | |
128 | Public Shared Function CreateObject(source As IEnumerable(Of T)) As Comb(Of T) |
129 | Return New Comb(Of T) With { |
130 | .source = source.AsList |
131 | } |
132 | End Function |
133 | |
134 | Public Overrides Function ToString() As String |
135 | Return String.Format("Comb(Of {0})::There is {1} object last.", GetType(T).FullName, source.Count) |
136 | End Function |
137 | |
138 | Public Shared Widening Operator CType(source As T()) As Comb(Of T) |
139 | Return New Comb(Of T) With { |
140 | .source = source.AsList |
141 | } |
142 | End Operator |
143 | |
144 | Public Shared Widening Operator CType(source As List(Of T)) As Comb(Of T) |
145 | Return New Comb(Of T) With { |
146 | .source = source |
147 | } |
148 | End Operator |
149 | |
150 | ''' <summary> |
151 | ''' Creates the completely combination of the elements in the target input collection source. |
152 | ''' (创建完完全全的两两配对) |
153 | ''' </summary> |
154 | ''' <param name="source"></param> |
155 | ''' <returns></returns> |
156 | ''' <remarks></remarks> |
157 | Public Shared Iterator Function CreateCompleteObjectPairs(source As IEnumerable(Of T)) As IEnumerable(Of Tuple(Of T, T)()) |
158 | Dim array As T() = source.ToArray |
159 | |
160 | For Each i As T In array |
161 | Dim tmp As New List(Of Tuple(Of T, T)) |
162 | |
163 | For Each j As T In array |
164 | tmp += New Tuple(Of T, T)(i, j) |
165 | Next |
166 | |
167 | Yield tmp.ToArray |
168 | Next |
169 | End Function |
170 | End Class |
171 | End Namespace |