Quine (コンピューティング)について詳しく解説

＃含む
char *i= " \\ #include 」 ,n= ' \n ' ,q= '"' ,*p=
"%s%cchar*i=%c%c%s%c,n='%cn',q='%c',*p=%c%c%s%c,*m=%c%c %s%c%c;%s%c" ,*m=
"int main(){return!printf(p,i+1,n,q,*i,i,q,*i,q,n,q,p,q,n,q,m,q,n, m,n);}"
;int main ( ) {リターン! printf ( p,i +1 ,n,q,*i,i,q,*i,q,n,q,p,q,n,q,m,q,n,m,n ) ; }

＃含む
main ( ) { int i;char t [ 2 ] ; t [ 0 ] =0x00;char *v,*w;v= ( char * ) malloc ( 10 ) ; w= ( char * ) malloc ( 9 ) ;
t [ 1 ] =v [ 0 ] =v [ 9 ] =w [ 0 ] =0x22;v [ 1 ] =v [ 2 ] =v [ 7 ] =v [ 8 ] =w [ 1 ] =w [ 2 ] =0x3C;v [ 3 ] =0x75;w [ 4 ] =v [ 4 ] =0x5B;
w [ 5 ] =v [ 5 ] =0x69;v [ 6 ] =w [ 6 ] =0x5D;w [ 3 ] =0x78;w [ 7 ] =0x3B;w [ 8 ] =0x7D;std::文字列u [ 2 ] ,x [ 2 ] ;
u [ 0 ] =0x0A;u [ 1 ] =v;x [ 0 ] =t [ 0 ] ;x [ 1 ] =w;for ( i= 0 ;i< 2 ;i++ ) std::コスト<  [i ] << "#include 」
<  [i ] << "main(){int i;char t(link);t(link)=0x00;char *v,*w;v=(char*)malloc(10);w=(char*) malloc(9);
t(リンク)=v(リンク)=v(リンク)=w(リンク)=0x22;v(リンク)=v(リンク)=v(リンク)=v(リンク)=w(リンク)=w(リンク) )=0x3C;v(リンク)=0x75;w(リンク)=v(リンク)=0x5B;w(リンク)=v(リンク)=0x69;
v(リンク)=w(リンク)=0x5D;w(リンク)=0x78;w(リンク)=0x3B;w(リンク)=0x7D;std::string u(リンク),x(リンク);u(リンク) )=0x0A;u(リンク)=v;x(リンク)=t(リンク);
x(link)=w;for(i=0;i<2;i++){std::cout<  <  [ 私] ; }

システムを使用して;
クワイン名前空間
{
クラスプログラム
{
[ STAスレッド]
static void Main ( string [ ] args )
{
string s = "システムを使用;{0}名前空間 quine{0}{2}{0}{1}クラス プログラム{0}
{1}{2}{0}{1}{1}[STAThread]{0}{1}{1}static void Main(string(link) args){0}{1}{1}{2}{ 0}{1}{1}{1}
string s = {4}{6}{4};{0}{1}{1}{1}Console.Write(s, Environment.NewLine, {4}{5}t{4}, {4}{ 2}
{4}、{4}{3}{4}、{4}{5}{4}{4}、{4}{5}{5}{4}、s);{0}{1}{ 1}{3}{0}{1}{3}{0}{3}" ;
コンソール。 Write ( s, Environment.NewLine , " \t " , "{" , "}" , " \" " , " \\ " , s ) ;
}
}
}

( (ラムダ( x )
(リストx (リスト(引用引用) x ) ) )
（引用
(ラムダ( x )
(リストx (リスト(引用引用) x ) ) ) )

( funcall (ラムダ( x )
( append x ( list ( list ' quote x ) ) )
' ( funcall (ラムダ( x )
( append x ( list ( list ' quote x ) ) ) ) )

( fun s -> Printf . printf "%s %S " ss ) "(fun s -> Printf.printf \" %s % S\ " ss ) "

a= 'a=%s;print a%%`a`' ;print a%`a`

b= ' \\ ' ;g= '"' ;p= ' %' ;s= "b='%s%s';g='%s';p='%s';s=%s% s%s;print s%s(b,b,g,p,g,s,g,p)" ;print s% ( b,b,g,p,g,s,g,p )

b,g,p,s= ' \\ ' , '"' , '%' , "b,g,p,s='%s%s','%s','%s',%s% s%s;print s%s(b,b,g,p,g,s,g,p)" ;print s% ( b,b,g,p,g,s,g,p )

<< 2 * 2 , 2を入れます
<< 2 * 2 , 2を入れます
2

unescape ( q= "unescape(q=%22*%22).replace('*',q)" ) 。置換( '*' ,q )

$_ = q { $_ = q { Q } ;s/Q/ $_ /;print } ;s/Q/ $_ /;print

const a= 'const a=' ;b= '書き込み開始(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) 終了。 ;
begin write ( a, # 39 , a, # 39 # 59 # 98 # 61 # 39 , b, # 39 # 59 # 10 , b ) end 。

#!/bin/sh
クワイン( ) {
echo -e "#!/bin/sh \n $1"
エコー「クイン '$1'」
}
クワイン クワイン () {
echo -e "#!/bin/sh \\ n$1"
エコー「クイン\0 47$1 \0 47」
}
'

$a = 'chr(60).chr(63).chr(10).chr(36).chr(97).chr(61).chr(39).$a.chr(39).chr(59 ).chr(10)."echo $a;".chr(10).chr(63).chr(62)' ;
エコーchr ( 60 ) 。 chr ( 63 ) 。 chr ( 10 ) 。 chr ( 36 ) 。 chr ( 97 ) 。 chr ( 61 ) 。 chr ( 39 ) 。 $a 。 chr ( 39 ) 。 chr ( 59 ) 。 chr ( 10 ) 。 "エコー $a;" 。 chr ( 10 ) 。 chr ( 63 ) 。 chr ( 62 ) ;
?>

$a = ' ' ;
echo str_replace ( 1 +1 , chr ( 39 ) . $a . chr ( 39 ) , $a ) ;
?>

クリア
トークをオフにする
テキストマージをオンに設定
\クリア
\トークをオフに設定
\テキストマージをオンに設定

proc Quine { } {
set n [ lindex [情報レベル0 ] 0 ]
append s [ list proc $n [ info args $n ] [ info body $n ] ] \n [ list $n ]
$sを入れる
}
クワイン