Quines

Quines are expressions that produce themselves. Not very usefull, but for some reason I find them pretty neat.

Here they are:

• Scheme
  

  ;; v1
  ((lambda(x) (quasiquote ((unquote x) (quote (unquote x)))))
   (quote (lambda(x) (quasiquote (unquote x) (quote (unquote x))))))
  ;; v2
  (define foo 
     ((lambda (x) (quasiquote ((unquote-splicing x) (quote (unquote x)))))
      (quote (define foo ((lambda (x) (quasiquote ((unquote-splicing x) (quote (unquote x))))))))))
  

• Perl
  

  &{sub {print "$_[0] (q($_[0]))"; }} (q(&{sub {print "$_[0] (q($_[0]))"; }}))
  

• Java
  
  • V1
    

    /*Don't bother running me. You'll just get me back again.*/public class jq {public static void main(String[] a) {char c=34,d=0x2c; String[] s={"/*Don't bother running me. You'll just get me back again.*/public class jq {public static void main(String[] a) {char c=34,d=0x2c; String[] s={","int i=0;System.out.print(s[i]+c+s[i++]+c+d+c+s[i++]+c+d+c+s[i++]+c+s[--i]+s[--i]);}}","};"};int i=0;System.out.print(s[i]+c+s[i++]+c+d+c+s[i++]+c+d+c+s[i++]+c+s[--i]+s[--i]);}}
    

  • V2
    

    public class sjq {public static void main(String[]a) {char j=34,q=0x2c; String[] s={"public class sjq {public static void main(String[]a) {char j=34,q=0x2c; String[] s={","int y=0;System.out.print(s[y]+j+s[y++]+j+q+j+s[y++]+j+q+j+s[y++]+j+s[--y]+s[--y]);}}","};"};int y=0;System.out.print(s[y]+j+s[y++]+j+q+j+s[y++]+j+q+j+s[y++]+j+s[--y]+s[--y]);}}
    

• SIC
  

  6,6,0,0,0,0