Page 1 of 1

PB closing in on C?

Posted: Sat Feb 11, 2006 12:09 pm
by Trond
Is PureBasic closing in on C when it comes to compiling strange stuff?

(Display with a monospaced font.)

Compiles cleanly:

Code: Select all

pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb
pb -------------------------------------------------------------- pb
pb -- pb----pb-pb-pb-pb----------------pb-pb-pb-pb------------ -- pb
pb -- pb-pb-pb-pb-pb-pb-pb-pb----------pb-pb-pb-pb-pb-pb------ -- pb
pb -- pb-pb-pb-pb-pb-pb-pb-pb-pb-------pb-pb-------pb-pb-pb--- -- pb
pb -- pb-pb-----------------pb-pb------pb-pb----------pb-pb--- -- pb
pb -- pb-pb-----------------pb-pb------pb-pb------------pb-pb- -- pb
pb -- pb-pb-----------------pb-pb------pb-pb------------pb-pb- -- pb
pb -- pb-pb-----------------pb-pb------pb-pb------------pb-pb- -- pb
pb -- pb-pb----------------pb-pb-------pb-pb-----------pb-pb-- -- pb
pb -- pb-pb--------------pb-pb---------pb-pb---------pb-pb---- -- pb
pb -- pb-pb-pb-pb-pb-pb-pb-pb----------pb-pb-pb-pb-pb-pb------ -- pb
pb -- pb-pb-pb-pb-pb-pb-pb-------------pb-pb-pb-pb-pb-pb-pb--- -- pb
pb -- pb-pb----------------------------pb-pb-----------pb-pb-- -- pb
pb -- pb-pb----------------------------pb-pb-------------pb-pb -- pb
pb -- pb-pb----------------------------pb-pb-------------pb-pb -- pb
pb -- pb-pb----------------------------pb-pb-------------pb-pb -- pb
pb -- pb-pb----------------------------pb-pb-------------pb-pb -- pb
pb -- pb-pb----------------------------pb-pb----------pb-pb-pb -- pb
pb -- pb-pb----------------------------pb-pb-pb-pb-pb-pb-pb -- -- pb
pb -- pb-pb----------------------------pb-pb-pb-pb-pb-pb------ -- pb
pb -------------------------------------------------------------- pb
pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb ** pb

Posted: Sat Feb 11, 2006 2:09 pm
by blueznl
now trond is definitely looking for a life!

:-)

Posted: Sat Feb 11, 2006 2:19 pm
by dmoc
And the result is...????

I hate it when I miss the ending of a story! :P

Posted: Sat Feb 11, 2006 2:20 pm
by Dare2
:D

Re: PB closing in on C?

Posted: Sat Feb 11, 2006 3:29 pm
by PB
@Trond: How the hell did you come up with the idea of compiling that? :shock:

Re: PB closing in on C?

Posted: Sat Feb 11, 2006 10:20 pm
by Hydrate
PB wrote:@Trond: How the hell did you come up with the idea of compiling that? :shock:
Its easy, this will also compile:

Code: Select all

pb ** pb
pb -- feel-the-pure-power -- pb
pb ** pb
Heres how it works:
pb -- has to be at the start of a line
-- pb has to be at the end of it
you can put anything in between the lines, as long as its not got a space in it, and it will compile fine. You can also use ** instead of --

Odd though...

Posted: Sun Feb 12, 2006 12:30 am
by va!n
looool
how cool is that? rofl...

Posted: Sun Feb 12, 2006 12:52 am
by techjunkie
Trond!!! How in the f*ck, did you think of this? :lol: :lol: :lol: :lol:

You have a weird mind, a weird mind... :D

Posted: Sun Feb 12, 2006 3:21 pm
by Trond

Code: Select all

                            OpenConsole()
                            I = 45 + $36
                            While I > 1
                            Print(Str(I))
                            Print(" bot")
                           Print("tles o")
                        Print("f beer on th")
                     PrintN("e wall,") :Delay(5)
               Print(""  + Str(I) + " bottles of bee")
               PrintN("r.") : Print("Take one down, ")
               PrintN("pass it around,") : Goto a : b:
               If I > 2 : PrintN("") : EndIf : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               : : : : : : : : : : : : : : : : : : : :
               I - 1 : Wend : Goto Epr : : : : : : : :
               a: If I > 2 : Print(Str(I-1)+ " bottl")
               PrintN("es of beer on the wall."):EndIf
               Goto b : Epr: Print("1 bottle of beer")
               PrintN(" on the wall.") : PrintN("   ")
               PrintN("1 bottle of beer on the wall,")
               PrintN("1 bottle of beer."):Print("Ta")
               PrintN("ke one down, pass it around, ")
               Print("No more bottles of beer on the")
               PrintN(" wall."):PrintN(""):Print("No")
               Print(" more bottles of beer on the w")
               PrintN("all,") : Print("No more bottl")
               PrintN("es of beer.") : Print("Go to ")
               PrintN("the store and buy some more, ")
               Print("99 bottles of beer on the wall")
                 PrintN(".") : : : : : : : : Input()

Posted: Sun Feb 12, 2006 4:32 pm
by freak
Time for the first obfuscated code contest in PB :)