fork download
  1. Imports System.Collections.Generic
  2.  
  3. Class Q6611458
  4. Public Shared Sub Main()
  5. System.Console.WriteLine(String.Join("_",Split("001001000",1).ToArray()))
  6. System.Console.WriteLine(String.Join("X",Split("001001000",2).ToArray()))
  7.  
  8. End Sub
  9. Public Shared Function Split(s1 As String,len As Integer) As List(Of String)
  10. Dim list As List(Of String) = new List(Of String)()
  11. Do While s1.Length > len
  12. list.Add(s1.SubString(0,len))
  13. s1 = s1.SubString(len)
  14. Loop
  15. list.Add(s1)
  16. Return list
  17.  
  18.  
  19. End Function
  20.  
  21. End Class
stdin
Standard input is empty
compilation info
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
stdout
0_0_1_0_0_1_0_0_0
00X10X01X00X0