Plutor.org

• 14 Apr 2006

  I wrote my first quine today, in Perl. It was surprisingly simple:

  $_=q($_=$$;
  s/\\$\\$/q($_)/;
  print;
  );
  s/\\$\\$/q($_)/;
  print;

  Next step: ETA.

  Update 13:03: Someone beat me to it. Warning: the first line of the source is 11k characters long, which crashed my browser.

  Discuss

  • programming