the brainfuck code outputs a perl script which repeatedly outputs brainfuck code which outputs "butts\n"
Name:
Anonymous2007-09-18 18:56 ID:euy40ww7
Namespace Scalable
Module Enterprise
Class Solution
Shared Sub Main()
Dim WordToPrint As String 'This will hold the string our customer wants to print
start:
Console.Write("Please enter the string you wish to print: ") 'Asks the consumer for a string
WordToPrint = Console.ReadLine() 'Gets the string the client inputs
'Checking phase
If WordToPrint.ToLower <> "butts" Then GoTo ButtsError Else GoTo PrintButts 'I couldn't figure out why IsNot didn't work but thanks Rob for teaching me about <>
GoTo start
ButtsError:
ButtsError() 'Shows an error due to an incompatible input
GoTo start
PrintButts:
PrintString(WordToPrint) 'Prints the string the user desires
End Sub
Shared Function PrintString(ByVal MyString As String) 'Thanks Dave
Console.WriteLine(MyString) 'Outputs desired string
Console.WriteLine("Press any key to quit.")
Console.ReadKey() 'Waits for the user to press a key
Return 1
End Function
Shared Function ButtsError()
Console.WriteLine("We're sorry, but the requested feature is currently unavailable.")
Console.WriteLine("Press any key to continue.")
Console.ReadKey() 'Waits for the user to press a key
Return 2
(1) DO ,1 <- #13
PLEASE DO ,1 SUB #1 <- #234
DO ,1 SUB #2 <- #112
DO ,1 SUB #3 <- #112
DO ,1 SUB #4 <- #0
DO ,1 SUB #5 <- #214
PLEASE READ OUT ,1
PLEASE DO NEXT 1
PLEASE GIVE UP