Script Library: 1238 scripts
 

quine.r

REBOL [ Title: "Quine" Date: 20-Nov-2001/11:55:36+13:00 Version: 1.0.0 File: %quine.r Author: "J.S. Labuschagne" Purpose: {A Rebol quine; a program which reproduces its own code.} Email: %curve--waveform--org Description: "Rebol quine" library: [ level: 'intermediate platform: none type: 'tool domain: 'x-file tested-under: none support: none license: none see-also: none ] ] quine: func [][ print join "REBOL[^/" join " Author: {J.S. Labuschagne}^/" join " Description: {Rebol quine}^/" join "]^/quine: " join mold :quine "^/quine" ] quine
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.
  • (curve:waveform:org)