Quine Program

  print("Hello, world.")

  print("\"Hello, world.\"")

  print("quote: \" slash: \\ another slash: \\ another quote: \" The end.")

  print("print(\"Hello, world.\")")

  print("print(\"print(\\\"Hello, world.\\\")\")")

  print("print(\"print(\\\"print(\\\\\\\"Hello, world.\\\\\\\")\\\")\")")

  print(" <some stuff> <infinite number of slashes >"Hello, world.<infinite number of slashes>" <more stuff> ")

  A$ = "a!'dbde[39] c34);[97] 'a + c34);[98] 'b';[99] 'c';[100][101] 'e';[91] : PRINT 'CASE c';[93] ']';[33] A$;dCASE ELSE: PRINT MID$(A$, I, 1);dEND SELECTdNEXT Id"
  FOR I = 1 TO LEN(A$)
  SELECT CASE MID$(A$, I, 1)
  CASE CHR$(39): PRINT CHR$(34);
  CASE CHR$(97): PRINT "A$ = " + CHR$(34);
  CASE CHR$(98): PRINT "FOR I = 1 TO LEN(A$)";
  CASE CHR$(99): PRINT "CHR$(";
  CASE CHR$(100): PRINT
  CASE CHR$(101): PRINT "SELECT CASE MID$(A$, I, 1)";
  CASE CHR$(91): PRINT : PRINT "CASE CHR$(";
  CASE CHR$(93): PRINT "): PRINT";
  CASE CHR$(33): PRINT A$;
  CASE ELSE: PRINT MID$(A$, I, 1);
  END SELECT
  NEXT I

  10 LIST

  :0g,:93+`#@_1+

  #!/bin/sh
  cat $0

  #!/bin/cat

  b=\' c=\\ a='echo b=$c$b c=$c$c a=$b$a$b; echo $a'
  echo b=$c$b c=$c$c a=$b$a$b; echo $a

  b=\' c=\\ a='echo -n b=$c$b c=$c$c a=$b$a$b\;; echo $a';echo -n b=$c$b c=$c$c a=$b$a$b\;; echo $a

  b=\' c=\\ a='yes $( echo b=$c$b c=$c$c a=$b$a$b; echo $a ) | bash &'
  yes $( echo b=$c$b c=$c$c a=$b$a$b; echo $a ) | bash &

  z=\' a='z=\\$z a=$z$a$z\; eval echo \$a'; eval echo $a

  #include <stdio.h>

  const char *data[] = {
    "  NULL};",
    "",
    "void print_string(const char *str)",
    "{",
    "  const char *ptr;",
    "  printf(\"  \\\"\");",
    "  for (ptr = str; *ptr != 0; ptr++)",
    "  if (*ptr == '\\\\')",
    "  printf(\"\\\\\\\\\");",
    "  else if (*ptr == '\"')",
    "  printf(\"\\\\\\\"\");",
    "  else",
    "  putchar(*ptr); ",
    "  printf(\"\\\",\\n\");",
    "}",
    "",
    "int main(void)",
    "{",
    "  const char **ptr;",
    "  printf(\"#include <stdio.h>\\n\\n\");",
    "  printf(\"const char *data[] = {\\n\");",
    "  for (ptr = data; *ptr != NULL; ptr++)",
    "  print_string(*ptr);",
    "  for (ptr = data; *ptr != NULL; ptr++)",
    "  printf(\"%s\\n\", *ptr);",
    "  return 0;",
    "}",
    NULL};

  void print_string(const char *str)
  {
    const char *ptr;
    printf("  \"");
    for (ptr = str; *ptr != 0; ptr++)
    if (*ptr == '\\')
    printf("\\\\");
    else if (*ptr == '"')
    printf("\\\"");
    else
    putchar(*ptr);
    printf("\",\n");
  }

  int main(void)
  {
    const char **ptr;
    printf("#include <stdio.h>\n\n");
    printf("const char *data[] = {\n");
    for (ptr = data; *ptr != NULL; ptr++)
    print_string(*ptr);
    for (ptr = data; *ptr != NULL; ptr++)
    printf("%s\n", *ptr);
    return 0;
  }

  int main(void){
  char str[]= " int main(void){ char str[]= %c%s%c; printf(str, 0x22, str, 0x22);}";
  printf(str, 0x22, str, 0x22);}

  ((lambda (x) (quasiquote ((unquote x) (quote (unquote x))))) (quote (lambda (x) (quasiquote ((unquote x) (quote (unquote x)))))))

  ((lambda (x) `(,x ', x)) '(lambda (x) `(,x ',x)))

  Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
  bcc32_interpreter_quine.c:
  Error E2141 bcc32_interpreter_quine.c 1: Declaration syntax error
  Error E2223 bcc32_interpreter_quine.c 1: Too many decimal points
  *** 2 errors in Compile ***

  ERROR: Parse error
 in file 'selected text'
 line 1 char 10 :
 ERROR: Parse error
 in file 'selected text'
  -----------------------------------
  ERROR: Command line parse failed
  nil

  ...
  > quine4.c:2152: error: stray ‘\342’ in program
  > quine4.c:2152: error: stray ‘\200’ in program
  > quine4.c:2152: error: stray ‘\230’ in program
  > quine4.c:2152: error: stray ‘\’ in program
  > quine4.c:2152: error: stray ‘\342’ in program
  > quine4.c:2152: error: stray ‘\200’ in program
  > quine4.c:2152: error: stray ‘\231’ in program

  class Quine {
   static void Main() {
    string f = "class Quine {{{2} static void Main() {{{2}  string f = {0}{1}{0};{2}  System.Console.WriteLine?(f, (char)0x22, f, (char)10);{2}  }}{2}}}";
    System.Console.WriteLine?(f, (char)0x22, f, (char)10);
    }
  }

  Let the following text, enclosed in double quotes, be called Text A.
  (You can really ignore Text A.  Just take note of the three dollar
  signs it contains.)

  "Let the following text, enclosed in double quotes, be called Text A.
  (You can really ignore Text A.  Just take note of the three dollar signs
  it contains.) $$$ Take pencil and paper, and write the following three
  things down, separated as paragraphs.  (That's just boring copying.
  You needn't be interested in the text you're handling.)  First, all
  of Text A that precedes the three dollar signs.  Second, the whole of
  Text A, enclosed in double quotes.  Third, all of Text A that follows
  the three dollar signs.  Now step back and try to interpret what you
  have just written."

  Take pencil and paper, and write the following three things down,
  separated as paragraphs.  (That's just boring copying.  You needn't
  be interested in the text you're handling.)  First, all of Text A that
  precedes the three dollar signs.  Second, the whole of Text A, enclosed
  in double quotes.  Third, all of Text A that follows the three dollar
  signs.  Now step back and try to interpret what you have just written.

  Object ::quine
  ::quine proc printSelf {  } {
  foreach instance [ Object info instances ] {
  foreach proc [ $instance info procs ] {
  puts "Object $instance"
  puts "$instance proc $proc \{ [ $instance info args $proc ] \} \{
  [ $instance info body $proc ]
  \}"
  }
  }
  puts "::quine printSelf"
  }
  ::quine printSelf

  : QUINE [ SOURCE ] SLITERAL TYPE ; QUINE

  SOURCE TYPE

  package main;import"fmt";func main(){s:="\"\\\"package main;import\"fmt\";func main(){s:=;fmt.Print(s[3:43]+s[:2]+s[:2]+s[1:2]+s[1:22]+s[1:3]+s[23:26]+s[1:3]+s[27:]+s[:1]+s[43:])}";fmt.Print(s[3:43]+s[:2]+s[:2]+s[1:2]+s[1:22]+s[1:3]+s[23:26]+s[1:3]+s[27:]+s[:1]+s[43:])}

  ((++)<*>show)"((++)<*>show)"

q

  public class Quine {
   public static void main(String[] args) {
    String[] str = {
  "public class Quine {",
  " public static void main(String[] args) {",
  "  String[] str = {",
  "  };",
  "  for(int i=0;i<3;i++)System.out.println(str[i]);",
  "  for(int i=0;i<9;i++)System.out.println((char)34+str[i]+(char)34+',');",
  "  for(int i=3;i<9;i++)System.out.println(str[i]);",
  " }",
  "}",
    };
    for(int i=0;i<3;i++)System.out.println(str[i]);
    for(int i=0;i<9;i++)System.out.println((char)34+str[i]+(char)34+',');
    for(int i=3;i<9;i++)System.out.println(str[i]);
   }
  }

  enum Q{T;System a;String b="enum Q{T;System a;String b=%c%s%c;{a.out.printf(b,34,b,34);a.exit(0);}}";{a.out.printf(b,34,b,34);a.exit(0);}}

  (function a(){print('('+a+')()')})()

  _='"'+";document.write('_=',_[17],_[0],_[17],'+',_,_)";document.write('_=',_[17],_[0],_[17],'+',_,_)

  _='"'+";print('_=',_[8],_[0],_8],'+',_,_)";print('_=',_[8],_[0],_8],'+',_,_)

  (,q,q,~]#~[:>:]=q=.'"_)'(,q,q,~]#~[:>:]=q=.'"_)'

  s="s=%qprint(s:format(s))"print(s:format(s))

  =SUBSTITUTE(SUBSTITUTE("=SUBSTITUTE(SUBSTITUTE(#@#,CHAR(35),CHAR(34)),CHAR(64),#@#)",CHAR(35),CHAR(34)),CHAR(64),"=SUBSTITUTE(SUBSTITUTE(#@#,CHAR(35),CHAR(34)),CHAR(64),#@#)")

  =SUBSTITUTE("=SUBSTITUTE(@,CHAR(64),CHAR(34)&@&CHAR(34))",CHAR(64),CHAR(34)&"=SUBSTITUTE(@,CHAR(64),CHAR(34)&@&CHAR(34))"&CHAR(34))

  @echo off
  %1 %2
  call %0 goto e %%
  call %0 goto e %%3 echo.%%4
  echo :f
  goto f
  :e
  echo.%4@echo off
  echo.%4%31 %32
  echo.%4call %30 goto e %3%3
  echo.%4call %30 goto e %3%33 echo.%3%34
  echo.%4echo :f
  echo.%4goto f
  echo.%4:e
  :f

  using System.Console;
  module quine {
   Main():void {
    def a = @"using System.Console;
  module quine {
   Main():void {
    def a = @;
    Write(a.Substring(0,72));Write(34:>char);
    Write(a);Write(34:>char);
    Write(a.Substring(72,(a.Length -72)));
   }
  }
  ";
    Write(a.Substring(0,72));Write(34:>char);
    Write(a);Write(34:>char);
    Write(a.Substring(72,(a.Length -72)));
   }
  }

  const a=';begin write(^#^/^.^3^4^`^!^}#39,a,#39,a)end.';begin write(^#^/^.^3^4^`^!^}#39,a,#39,a)end.