fork download

copy

Imports System
Imports System.Linq
 
Public Class Test
	Public Shared Sub Main()
		' your code goes here
	End Sub
End Class
 
Public Shared Function BaseConvert(number As String, fromBase As Integer, toBase As Integer) As String
	Dim digits = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
	Dim length = number.Length
	Dim result = String.Empty
 
	Dim nibbles = number.[Select](Function(c) digits.IndexOf(c)).ToList()
	Dim newlen As Integer
	Do
		Dim value = 0
		newlen = 0
 
		For i As var = 0 To length - 1
			value = value * fromBase + nibbles(i)
			If value >= toBase Then
				If newlen = nibbles.Count Then
					nibbles.Add(0)
				End If
				nibbles(System.Math.Max(System.Threading.Interlocked.Increment(newlen),newlen - 1)) = value / toBase
				value = value Mod toBase
			ElseIf newlen > 0 Then
				If newlen = nibbles.Count Then
					nibbles.Add(0)
				End If
				nibbles(System.Math.Max(System.Threading.Interlocked.Increment(newlen),newlen - 1)) = 0
			End If
		Next
		length = newlen
			'
		result = digits(value) + result
	Loop While newlen <> 0
 
	Return result
End Function

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/S6EtNl/prog.vb (10,14) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (11,5) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (12,5) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (13,5) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (15,5) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (16,5) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (17,4) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (18,6) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (19,9) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (21,6) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (22,9) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (23,6) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (24,7) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (25,13) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (26,11) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (27,12) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (28,10) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (29,10) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (30,7) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (31,13) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (32,11) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (33,12) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (34,10) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (35,7) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (36,9) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (38,9) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (39,6) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (41,8) : Error VBNC30203: Not valid as identifier.
/home/S6EtNl/prog.vb (42,13) : Error VBNC30203: Not valid as identifier.
There were 29 errors and 0 warnings.
Compilation took 00:00:00.6340020

Standard output is empty