1 #Region "Microsoft.VisualBasic::d517c368cd2f8a39777ef32c2d414697, Microsoft.VisualBasic.Core\ComponentModel\Algorithm\DynamicProgramming.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 '     Delegate Function
35
36
37 '     Delegate Function
38
39
40 '     Class Cost
41
42 '         FunctionDefaultCost, DefaultSubstituteCost
43
44
45
46
47
48 ' /********************************************************************************/
49
50 #End Region
51
52 Imports Microsoft.VisualBasic.Language.Default
53
54 Namespace ComponentModel.Algorithm.DynamicProgramming
55
56     Public Class Cost(Of T)
57
58         Public insert As Func(Of T, Double)
59         Public delete As Func(Of T, Double)
60         Public substitute As Func(Of T, T, Double)
61         Public transpose As Func(Of T, T, Double)
62
63         Public Shared Function DefaultSubstituteCost(a As T, b As T, equals As GenericLambda(Of T).IEquals) As Double
64             Return If(equals(a, b), 0, 1)
65         End Function
66
67         Public Shared Function DefaultCost(cost As DoubleAs DefaultValue(Of Cost(Of T))
68             Return New Cost(Of T) With {
69                 .insert = Function(x) cost,
70                 .delete = Function(x) cost,
71                 .substitute = Function(a, b) cost
72             }
73         End Function
74     End Class
75
76     Public Delegate Function ISimilarity(Of T)(x As T, y As T) As Double
77     Public Delegate Function IEquals(Of T)(x As T, y As T) As Boolean
78
79 End Namespace