C# Online Compiler | .NET Fiddle

<no name> by Anonymous

Imports System
				
Public Module Module1
	Public Sub Main()
		
		Console.WriteLine(ConvertToRanges("1,2,3,4"))
	End Sub
	
	Public Function ConvertToRanges(pageNos As String) As String		
        Dim result As String = String.Empty
        Dim arr1 As String() = pageNos.Split(","c)
        Dim arr As Integer() = New Integer(arr1.Length - 1) {}

		
        For x As Integer = 0 To arr1.Length - 1
            ' Convert string array to integer array
            arr(x) = Convert.ToInt32(arr1(x).ToString())
        Next

        Array.Sort(arr)

	
        Dim start As Integer, [end] As Integer
        ' track start and end
        [end] = InlineAssignHelper(start, arr(0))
        For i As Integer = 1 To arr.Length - 1
            ' as long as entries are consecutive, move end forward
            If arr(i) = (arr(i - 1) + 1) Then
                [end] = arr(i)
            Else
                ' when no longer consecutive, add group to result
                ' depending on whether start=end (single item) or not
                If start = [end] Then
                    result += start.ToString() + ", "
                Else
                    result += start.ToString() + "-" + [end].ToString() + ", "
                End If

                start = InlineAssignHelper([end], arr(i))
            End If
       Next

        ' handle the final group
        If start = [end] Then
            result += start.ToString()
        Else
            result += start.ToString() + "-" + [end].ToString()
        End If

        Return result
    End Function

    Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function 

End Module

​x
 
Imports System
                
Public Module Module1
    Public Sub Main()
        
        Console.WriteLine(ConvertToRanges("1,2,3,4"))
    End Sub
    
    Public Function ConvertToRanges(pageNos As String) As String        
        Dim result As String = String.Empty
        Dim arr1 As String() = pageNos.Split(","c)
        Dim arr As Integer() = New Integer(arr1.Length - 1) {}
​
        
        For x As Integer = 0 To arr1.Length - 1
            ' Convert string array to integer array
            arr(x) = Convert.ToInt32(arr1(x).ToString())
        Next
​
        Array.Sort(arr)
​
    
        Dim start As Integer, [end] As Integer
        ' track start and end
        [end] = InlineAssignHelper(start, arr(0))
        For i As Integer = 1 To arr.Length - 1
            ' as long as entries are consecutive, move end forward
            If arr(i) = (arr(i - 1) + 1) Then
                [end] = arr(i)
            Else
                ' when no longer consecutive, add group to result
                ' depending on whether start=end (single item) or not
                If start = [end] Then
                    result += start.ToString() + ", "
                Else
                    result += start.ToString() + "-" + [end].ToString() + ", "
                End If
​
                start = InlineAssignHelper([end], arr(i))
            End If
       Next
​
        ' handle the final group
        If start = [end] Then
            result += start.ToString()
        Else
            result += start.ToString() + "-" + [end].ToString()
        End If
​
        Return result
    End Function
​
    Private Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function 
​
End Module

Compilation error (line 3, col 7): The type or namespace name 'UnityEngine' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 6, col 26): The type or namespace name 'MonoBehaviour' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 8, col 15): The type or namespace name 'Animator' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 10, col 6): The type or namespace name 'Header' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 10, col 6): The type or namespace name 'HeaderAttribute' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 11, col 6): The type or namespace name 'SerializeField' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 11, col 6): The type or namespace name 'SerializeFieldAttribute' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 12, col 6): The type or namespace name 'SerializeField' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 12, col 6): The type or namespace name 'SerializeFieldAttribute' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 15, col 6): The type or namespace name 'Header' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 15, col 6): The type or namespace name 'HeaderAttribute' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 17, col 6): The type or namespace name 'SerializeField' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 17, col 6): The type or namespace name 'SerializeFieldAttribute' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 5, col 2): The type or namespace name 'RequireComponent' could not be found (are you missing a using directive or an assembly reference?)
Compilation error (line 5, col 2): The type or namespace name 'RequireComponentAttribute' could not be found (are you missing a using directive or an assembly reference?)

Last Run:	10:59:05 pm
Compile:	0s
Execute:	0.189s
Memory:	0b
CPU:	0s

View IL Code