Self Displaying Program

[Konne]

Code updated for 5.20+

This Program displays itsself in the debugger. Maybe someone can make it smaller.

Code: Select all

C.s="C.s=#:C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34)):Debug C":C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34)):Debug C

[Flype]

waaahouuu that's so strange

what the use for such code ?

how it works ? i didn't understand at all your logic...

[Derek]

That's clever.

[Henrik]

lol cool

[srod]

Wow!

[Konne]

what the use for such code ?

Normally you would think this would be a Infinity Recursive problem.
You may think it's impossible to make a Quote of a Quote etc

But thanks to Stringmanipulation it's possible

Once you understand the concept you have to make the program smaller. The one making the smallest PB Program wins

[srod]

It nearly sent me crackers trying to figure out what the hell was going on!



It is very clever.

[Tommeh]

Ok, as we seem to be using PB hacks :p here is one for you

Code: Select all

String$ = "hello"     ;String is defined
String$ = "world"    ;String is redefined with new value

!MOV    edx,dword _S1
!MOV    [v_value],edx

Debug PeekS(value, 5)       ;Get previous value
Debug PeekS(value+6, 5)     ;Get new value

You can also use this method to retreve defined variable names and values :p

[Konne]

It's not at all a PB Hack.

It's understandable with a couple of comments and the replacement of :'s.

Code: Select all

C.s="C.s=#:C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34)):Debug C"    ;We save the Code in this Variable. # is then Replaced with " +Code +"
C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34))  ;Here we Replace # (Chr(35))  with the Code.And Two " (Chr(34))
Debug C       ;Here we debug the Code

[Rook Zimbabwe]

C.s="C.s=#:C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34)):Debug C":C=ReplaceString(C,Chr(35),Chr(34)+C+Chr(34)):Debug C

OK keep in mind I am dense! but that is what pops up in debug... Oy I feel stupid for asking but that is what is Supposed to happen???

[Nik]

It's a program that is capable of displaying it's own source code, thats called a quine see http://en.wikipedia.org/wiki/Quine_%28computing%29

[JCV]

1st kind of code to see in pb.

[#NULL]

This Program displays itsself in the debugger. Maybe someone can make it smaller.

i once posted one in the german forum: http://forums.purebasic.com/german/view ... f=8&t=8471
apparently its 3 characters shorter and there are still 4 spaces that can be eliminated..

Code: Select all

s$="s$=:Debug Mid(s$,1,3)+Chr(34)+s$+Chr(34)+Mid(s$,4,100)":Debug Mid(s$,1,3)+Chr(34)+s$+Chr(34)+Mid(s$,4,100)

[Demivec]

This Program displays itsself in the debugger. Maybe someone can make it smaller.

i once posted one in the german forum: http://forums.purebasic.com/german/view ... f=8&t=8471
apparently its 3 characters shorter and there are still 4 spaces that can be eliminated..

Code: Select all

s$="s$=:Debug Mid(s$,1,3)+Chr(34)+s$+Chr(34)+Mid(s$,4,100)":Debug Mid(s$,1,3)+Chr(34)+s$+Chr(34)+Mid(s$,4,100)

This code is shorter by 11 more characters (under 100) .

Code: Select all

s.s="s.s=:Debug Mid(s,1,4)+Chr(34)+s+Chr(34)+Mid(s,5)":Debug Mid(s,1,4)+Chr(34)+s+Chr(34)+Mid(s,5)

[wilbert]

Left will make it two chars shorter

Code: Select all

s.s="s.s=:Debug Left(s,4)+Chr(34)+s+Chr(34)+Mid(s,5)":Debug Left(s,4)+Chr(34)+s+Chr(34)+Mid(s,5)