fork download

Imports System.Collections.Generic
 
Class Q6611458
	Public Shared Sub Main()
		System.Console.WriteLine(String.Join("_",Split("001001000",1).ToArray()))
		System.Console.WriteLine(String.Join("X",Split("001001000",2).ToArray()))
 
	End Sub
	Public Shared Function Split(s1 As String,len As Integer) As List(Of String)
		Dim list As List(Of String) = new List(Of String)()
		Do While s1.Length > len
			list.Add(s1.SubString(0,len))
			s1 = s1.SubString(len)
		Loop
		list.Add(s1)
		Return list
 
 
	End Function
 
End Class

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


Assembly 'prog, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null' saved successfully to '/home/lPddAT/prog.exe'.
Compilation successful
Compilation took 00:00:01.0948540

0_0_1_0_0_1_0_0_0
00X10X01X00X0