1 #Region "Microsoft.VisualBasic::fd599c599567b68ab309e181369d7838, Microsoft.VisualBasic.Core\Text\StringSimilarity\IEqualityComparer.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 StringEqualityHelper
35     
36     '         Properties: BinaryEquals, TextEquals
37     
38     '         Constructor: (+1 OverloadsSub New
39     '         Function: Equals, GetHashCode, ToString
40     
41     
42     ' /********************************************************************************/
43
44 #End Region
45
46 Imports System.Runtime.CompilerServices
47 Imports Microsoft.VisualBasic.Text.Levenshtein
48
49 Namespace Text.Similarity
50
51     ''' <summary>
52     ''' thresholds:
53     ''' 
54     ''' + 0: text equals
55     ''' + 1: binary equals
56     ''' + (0, 1): similarity threshold
57     ''' </summary>
58     Public Class StringEqualityHelper : Implements IEqualityComparer(Of String)
59
60         ''' <summary>
61         ''' + 0: text equals
62         ''' + 1: binary equals
63         ''' + (0, 1): similarity threshold
64         ''' </summary>
65         Dim threshold#
66         Dim compare As GenericLambda(Of String).IEquals
67
68         ''' <summary>
69         ''' thresholds:
70         ''' 
71         ''' + 0: text equals
72         ''' + 1: binary equals
73         ''' + (0, 1): similarity threshold
74         ''' </summary>
75         Sub New(threshold#)
76             Me.threshold = threshold
77
78             If threshold = 0R Then
79                 compare = Function(s1, s2) s1.TextEquals(s2)
80             ElseIf threshold = 1 Then
81                 compare = Function(s1, s2) s1 = s2
82             Else
83                 compare = Function(s1, s2)
84                               With LevenshteinDistance.ComputeDistance(s1, s2)
85                                   Return?.MatchSimilarity >= threshold
86                               End With
87                           End Function
88             End If
89         End Sub
90
91         Public Shared ReadOnly Property TextEquals As New StringEqualityHelper(0)
92         Public Shared ReadOnly Property BinaryEquals As New StringEqualityHelper(1)
93
94         Public Overrides Function ToString() As String
95             If threshold = 0R Then
96                 Return "Text Equals Of the Two String"
97             ElseIf threshold = 1.0R Then
98                 Return "Binary Equals Of the Two String"
99             Else
100                 Return "String Similarity With threshold " & threshold
101             End If
102         End Function
103
104         <MethodImpl(MethodImplOptions.AggressiveInlining)>
105         Public Overloads Function Equals(x As String, y As StringAs Boolean Implements IEqualityComparer(Of String).Equals
106             Return compare(x, y)
107         End Function
108
109         Public Overloads Function GetHashCode(obj As StringAs Integer Implements IEqualityComparer(Of String).GetHashCode
110             If obj Is Nothing Then
111                 Return 0
112             End If
113             Return obj.GetHashCode
114         End Function
115     End Class
116 End Namespace