Question

How to find N unique integers sum up to zero in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function UniqueIntegersSumUpToZero(ByVal n As Integer) As List(Of Integer)
        Dim result As List(Of Integer) = New List(Of Integer)(n)

        For i As Integer = 0 To n - 1
            result.Add(2 * i - n + 1)
        Next

        Return result
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 7
        Dim result As List(Of Integer) = UniqueIntegersSumUpToZero(n)

        For Each val As Integer In result
            Console.Write(val & " ")
        Next
    End Sub
End Class



' run:
'
' -6 -4 -2 0 2 4 6 
'

 

70+ SQL courses for beginners and professionals