Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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])