Imports System

Imports System.Collections

Imports System.Collections.Generic

imports microsoft.visualbasic

​

Public Module Module1

​

    Public Sub Main()

​

        Dim x = 1000.99

        Dim y = 155.156

        Console.WriteLine(cint(x.tostring().replace(".", "")))

        Console.WriteLine(cint(y.tostring().replace(".", "")))

        Console.WriteLine("")

        Dim paired = elegantPair(prep(x), prep(y))

        Console.WriteLine(paired)

        Console.WriteLine(Encode(paired))

    End Sub

​

    Public Function Prep(x As decimal) As long

        return cint(x.tostring().replace(".", ""))

    End Function

​

    Public Function elegantPair(x As long, y As long) As long

        Return If((x >= y), (x * x + x + y), (y * y + x))

    End Function

​

    Private Const Chars = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

​

    Public Function Encode(arg As Long) As String

        Dim charArray As Char() = Chars.ToCharArray()

        Dim result = New Stack(Of Char)()

        While arg <> 0

            result.Push(charArray(arg Mod 36))

            arg \= 36

        End While

​

        Return New String(result.ToArray())

    End Function

​

    Public Function Decode(arg1 As String) As Long

        Dim rev = StrReverse(arg1.ToUpper())

        Dim result As Long = 0

        Dim pos As Integer = 0

        For Each c In rev

            result += Chars.IndexOf(c) * CLng(Math.Pow(36, pos))

            pos += 1

        Next

​

        Return result

    End Function

End Module

​