[REBOL] Re: One-line Quine anyone?
From: ammon:rcslv at: 25-Nov-2002 16:49
Hi,
Sorry, but I couldn't help myself:
REBOL[] do a: {view layout[t: field 500 rejoin["REBOL[] do a: {" a "}"] btn
do
[do do t/text]]}
I know, I know, 97 Characters, but it actually "evolves" or executes what is
in the text box. You will notice different results depending on where you
edit the code though. I found that the best result was to add code directly
before 'view. ;-) Oh, and you need the newest beta or Link to execute it,
to make it execute on other systems:
do replace {REBOL[] do a: {view layout[t: field 500 rejoin["REBOL[] do a: {"
a "}"] btn "do" [do t/text]]}} 'btn 'button
It will add four characters, but if you shave all of the whitspace you can
then it will balance out. ;-)
Enjoy!!
Ammon Johnson --- CIO
Addept ------------------ (www.addept.ws)
435-616-2322 -------- ([ammon--addept--ws])