Script Library: 1223 scripts
 

oneliner-quine.r

Rebol [ Title: "Quine -- a program that displays it's own source" Date: 21-Jul-2003 File: %oneliner-quine.r Purpose: {Creates a self modifying window. (includes the REBOL Header.)} One-liner-length: 100 Version: 1.0.0 Author: {Ammon Johnson} Email: %ammon--johnson--gmail--com Library: [ level: 'beginner platform: none type: [How-to FAQ one-liner] domain: [game math] tested-under: none support: none license: none see-also: none ] ] REBOL[] do a: {view layout[t: field 500 rejoin["REBOL[] do a: {" a "}"] button "do" [do do t/text]]}
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (ammon:johnson:gmail:com)