1 #Region "Microsoft.VisualBasic::82520ba44d3e3aca83a3bf08a8ba3429, Microsoft.VisualBasic.Core\Language\Language\Java\Arrays.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     '     Module Arrays
35     
36     '         Function: copyOfRange, Max, Min, Shuffle, SubList
37     
38     '         Sub: Fill
39     
40     
41     ' /********************************************************************************/
42
43 #End Region
44
45 Imports System.Runtime.CompilerServices
46 Imports Microsoft.VisualBasic.Math
47
48 Namespace Language.Java
49
50     Public Module Arrays
51
52         <Extension>
53         Public Sub Fill(Of T)(ByRef a As T(), val As T)
54             For i% = 0 To a.Length - 1
55                 a(i%) = val
56             Next
57         End Sub
58
59         Public Function copyOfRange(Of T)(matrix As T(), start As Integer, length As IntegerAs T()
60             Dim out As T() = New T(length - 1) {}
61             Call Array.Copy(matrix, start, out, Scan0, length)
62             Return out
63         End Function
64
65         <Extension>
66         Public Function Shuffle(Of T)(ByRef list As List(Of T)) As List(Of T)
67             Dim rnd As New Random
68             Call rnd.Shuffle(list)
69             Return list
70         End Function
71
72         ''' <summary>
73         ''' Returns a view of the portion of this list between the specified fromIndex, inclusive, 
74         ''' and toIndex, exclusive. (If fromIndex and toIndex are equal, the returned list is empty.) 
75         ''' The returned list is backed by this list, so non-structural changes in the returned 
76         ''' list are reflected in this list, and vice-versa. The returned list supports all of the 
77         ''' optional list operations supported by this list.
78         ''' </summary>
79         ''' <typeparam name="T"></typeparam>
80         ''' <param name="list"></param>
81         ''' <param name="fromIndex%">low endpoint (inclusive) of the subList</param>
82         ''' <param name="toIndex%">high endpoint (exclusive) of the subList</param>
83         ''' <returns>a view of the specified range within this list</returns>
84         ''' 
85         <Extension>
86         Public Function SubList(Of T)(list As List(Of T), fromIndex%, toIndex%) As List(Of T)
87             Return list.Skip(fromIndex).Take(toIndex - fromIndex).AsList
88         End Function
89
90         <Extension>
91         Public Function Min(Of T As IComparable(Of T))(source As IEnumerable(Of T)) As T
92             Return Enumerable.Min(source)
93         End Function
94
95         <Extension>
96         Public Function Max(Of T As IComparable(Of T))(source As IEnumerable(Of T)) As T
97             Return Enumerable.Max(source)
98         End Function
99     End Module
100 End Namespace