{"id":50827,"date":"2024-05-15T12:42:02","date_gmt":"2024-05-15T12:42:02","guid":{"rendered":"https:\/\/science-hub.click\/Quine%28%E3%82%B3%E3%83%B3%E3%83%94%E3%83%A5%E3%83%BC%E3%83%86%E3%82%A3%E3%83%B3%E3%82%B0%29%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%A9%B3%E3%81%97%E3%81%8F%E8%A7%A3%E8%AA%AC\/"},"modified":"2024-05-15T12:42:02","modified_gmt":"2024-05-15T12:42:02","slug":"Quine%28%E3%82%B3%E3%83%B3%E3%83%94%E3%83%A5%E3%83%BC%E3%83%86%E3%82%A3%E3%83%B3%E3%82%B0%29%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6%E8%A9%B3%E3%81%97%E3%81%8F%E8%A7%A3%E8%AA%AC","status":"publish","type":"post","link":"https:\/\/science-hub.click\/?p=50827","title":{"rendered":"Quine (\u30b3\u30f3\u30d4\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0)\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u89e3\u8aac"},"content":{"rendered":"

\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30b5\u30a4\u30a8\u30f3\u30b9\u306b\u304a\u3051\u308b\u30af\u30ef\u30a4\u30f3<\/strong>\u3068\u306f\u3001\u51fa\u529b\u3068\u30bd\u30fc\u30b9\u30b3\u30fc\u30c9\u304c\u540c\u4e00\u306e\u30d7\u30ed\u30b0\u30e9\u30e0 (\u30e1\u30bf\u30d7\u30ed\u30b0\u30e9\u30e0<\/i>\u306e\u4e00\u7a2e) \u3067\u3059\u3002\u6311\u6226\u307e\u305f\u306f\u697d\u3057\u307f\u3068\u3057\u3066\u3001\u30d7\u30ed\u30b0\u30e9\u30de\u306e\u4e2d\u306b\u306f\u3001\u7279\u5b9a\u306e\u8a00\u8a9e\u3067\u6700\u77ed\u306e\u30af\u30ef\u30a4\u30f3\u3092\u66f8\u3053\u3046\u3068\u3059\u308b\u4eba\u3082\u3044\u307e\u3059\u3002<\/p>

\u30bd\u30fc\u30b9\u30d5\u30a1\u30a4\u30eb\u3092<\/span>\u958b\u3044\u3066\u8868\u793a\u3059\u308b\u3053\u3068\u306f\u4e0d\u6b63<\/a><\/span>\u884c\u70ba\u3068\u307f\u306a\u3055\u308c\u307e\u3059\u306e\u3067\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002\u3088\u308a\u4e00\u822c\u7684\u306b\u306f\u3001\u30c7\u30fc\u30bf<\/a><\/span>\u5165\u529b\u3092\u4f7f\u7528\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u6709\u52b9\u306aquine<\/a><\/span>\u3068\u306f\u898b\u306a\u3055\u308c\u307e\u305b\u3093\u3002\u7c21\u5358\u306a\u89e3\u6c7a\u7b56\u306f\u3001\u7a7a\u306e<\/a><\/span>\u30bd\u30fc\u30b9 \u30b3\u30fc\u30c9<\/a><\/span>\u3092\u542b\u3080\u30d7\u30ed\u30b0\u30e9\u30e0\u3067\u3059\u3002\u5b9f\u969b\u3001\u305d\u306e\u3088\u3046\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u5b9f\u884c\u3057\u3066\u3082\u3001\u307b\u3068\u3093\u3069\u306e\u8a00\u8a9e\u3067\u306f\u51fa\u529b\u3001\u3064\u307e\u308a<\/span>\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u30bd\u30fc\u30b9 \u30b3\u30fc\u30c9\u306f\u751f\u6210\u3055\u308c\u307e\u305b\u3093\u3002<\/p>

\u30af\u30ef\u30a4\u30f3\u306f\u3001\u8907\u6570\u306e\u8a00\u8a9e\u3067\u540c\u6642\u306b\u6709\u52b9\u3067\u3042\u308b\u5834\u5408\u3001\u591a\u8a00\u8a9e\u3067\u3042\u308b\u3068\u8a00\u308f\u308c\u307e\u3059\u3002\u3053\u306e\u3088\u3046\u306a\u30af\u30a4\u30f3\u306e\u3055\u307e\u3056\u307e\u306a\u4f8b\u306f\u3001\u30da\u30fc\u30b8\u306e\u4e0b\u90e8\u306b\u3042\u308b\u5916\u90e8\u30ea\u30f3\u30af\u304b\u3089\u5165\u624b\u3067\u304d\u307e\u3059\u3002<\/p>

\u30af\u30ef\u30a4\u30f3\u306e\u540d\u524d\u306f\u3001\u9593\u63a5\u7684\u81ea\u5df1\u8a00\u53ca<\/a><\/span>\u3092\u6df1\u304f\u7814\u7a76\u3057\u305f\u30a2\u30e1\u30ea\u30ab\u306e\u54f2\u5b66\u8005\u3067\u8ad6\u7406\u5b66\u8005\u306e WV \u30af\u30ef\u30a4\u30f3 (1908 \uff5e 2000 \u5e74) \u306b\u7531\u6765\u3057\u307e\u3059\u3002\u3068\u308a\u308f\u3051\u3001\u5f7c\u306f\u9006\u8aac\u7684\u306a (\u305d\u3057\u3066\u7ffb\u8a33\u304c\u96e3\u3057\u3044) \u8868\u73fe\u300c’ \u304c\u524d\u306b\u3042\u308b\u3068\u865a\u507d\u304c\u751f\u3058\u308b\u300d\u3092\u751f\u307f\u51fa\u3057\u307e\u3057\u305f\u3002\u5f15\u7528\u7b26<\/a><\/span>‘ \u306e\u524d\u306b\u5f15\u7528\u7b26\u304c\u3042\u308b\u3068\u865a\u507d\u306b\u306a\u308a\u307e\u3059\u3002<\/p>

\u4f8b<\/span><\/h2>

\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0<\/a><\/span>\u8a00\u8a9e<\/span><\/h3>

C<\/span><\/h4>
\n\uff03\u542b\u3080<\/span><\/stdio.h>\nchar<\/span> *i= \" \\\\<\/span> #include<\/span> \u300d<\/span><\/stdio.h> ,n= ' \\n<\/span> '<\/span> ,q= '\"'<\/span> ,*p=\n\"%s%cchar*i=%c%c%s%c,n='%cn',q='%c',*p=%c%c%s%c,*m=%c%c %s%c%c;%s%c\"<\/span> ,*m=\n\"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);}\"<\/span>\n;int main<\/a><\/span> (<\/span> )<\/span> {<\/span>\u30ea\u30bf\u30fc\u30f3<\/span>! printf<\/span><\/span> (<\/span> p,i +1<\/span> ,n,q,*i,i,q,*i,q,n,q,p,q,n,q,m,q,n,m,n )<\/span> ; }<\/span>\n<\/pre><\/div>
C++<\/span><\/h4>
\u6ce8: \u8aad\u307f\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u306b\u6539\u884c\u304c\u8ffd\u52a0\u3055\u308c\u3066\u3044\u307e\u3059\u3002 \u300c#include \u3088\u308a\u4e0b\u306e\u3059\u3079\u3066<\/a><\/span>\u300d \u300d\u3068\u4e00\u884c\u3067\u66f8\u304d\u307e\u3059\u3002<\/iostream><\/p>
\n\uff03\u542b\u3080<\/span><\/iostream>\nmain (<\/span> )<\/span> {<\/span> int<\/span> i;char t [<\/span> 2<\/span> ]<\/span> ; t [<\/span> 0<\/span> ]<\/span> =0x00;char *v,*w;v= (<\/span> char<\/span> * )<\/span> malloc<\/a><\/span><\/span> (<\/span> 10<\/span> )<\/span> ; w= (<\/span> char<\/span> * )<\/span> malloc<\/span> (<\/span> 9<\/span> )<\/span> ;\nt [<\/span> 1<\/span> ]<\/span> =v [<\/span> 0<\/span> ]<\/span> =v [<\/span> 9<\/span> ]<\/span> =w [<\/span> 0<\/span> ]<\/span> =0x22;v [<\/span> 1<\/span> ]<\/span> =v [<\/span> 2<\/span> ]<\/span> =v [<\/span> 7<\/span> ]<\/span> =v [<\/span> 8<\/span> ]<\/span> =w [<\/span> 1<\/span> ]<\/span> =w [<\/span> 2<\/span> ]<\/span> =0x3C;v [<\/span> 3<\/span> ]<\/span> =0x75;w [<\/span> 4<\/span> ]<\/span> =v [<\/span> 4<\/span> ]<\/span> =0x5B;\nw [<\/span> 5<\/span> ]<\/span> =v [<\/span> 5<\/span> ]<\/span> =0x69;v [<\/span> 6<\/span> ]<\/span> =w [<\/span> 6<\/span> ]<\/span> =0x5D;w [<\/span> 3<\/span> ]<\/span> =0x78;w [<\/span> 7<\/span> ]<\/span> =0x3B;w [<\/span> 8<\/span> ]<\/span> =0x7D;std::\u6587\u5b57\u5217<\/span>u [<\/span> 2<\/span> ]<\/span> ,x [<\/span> 2<\/span> ]<\/span> ;\nu [<\/span> 0<\/span> ]<\/span> =0x0A;u [<\/span> 1<\/span> ]<\/span> =v;x [<\/span> 0<\/span> ]<\/span> =t [<\/span> 0<\/span> ]<\/span> ;x [<\/span> 1<\/span> ]<\/span> =w;for (<\/span> i= 0<\/span> ;i< 2<\/span> ;i++ )<\/span> std::\u30b3\u30b9\u30c8<\/span><  [i ]<\/span> << \"#include<\/span> \u300d<\/span><\/iostream>\n<  [i ]<\/span> << \"main(){int i;char t(link);t(link)=0x00;char *v,*w;v=(char*)malloc(10);w=(char*) malloc(9);\nt(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=w(\u30ea\u30f3\u30af)=0x22;v(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=w(\u30ea\u30f3\u30af)=w(\u30ea\u30f3\u30af) )=0x3C;v(\u30ea\u30f3\u30af)=0x75;w(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=0x5B;w(\u30ea\u30f3\u30af)=v(\u30ea\u30f3\u30af)=0x69;\nv(\u30ea\u30f3\u30af)=w(\u30ea\u30f3\u30af)=0x5D;w(\u30ea\u30f3\u30af)=0x78;w(\u30ea\u30f3\u30af)=0x3B;w(\u30ea\u30f3\u30af)=0x7D;std::string u(\u30ea\u30f3\u30af),x(\u30ea\u30f3\u30af);u(\u30ea\u30f3\u30af) )=0x0A;u(\u30ea\u30f3\u30af)=v;x(\u30ea\u30f3\u30af)=t(\u30ea\u30f3\u30af);\nx(link)=w;for(i=0;i<2;i++){std::cout<<\/span>  <<\/span>  [<\/span> <\/x<\/t[i]<<\"<>\u79c1]<\/span> ; }<\/span>\n<\/u<\/t<\/pre><\/div>
 C#<\/span><\/h4>
\u6ce8: \u8aad\u307f\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u306b\u6539\u884c\u304c\u8ffd\u52a0\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>
\n\u30b7\u30b9\u30c6\u30e0\u3092\u4f7f\u7528\u3057\u3066<\/span>;<\/span>\n\u30af\u30ef\u30a4\u30f3\u540d\u524d\u7a7a\u9593<\/span>\n{<\/span>\n\u30af\u30e9\u30b9<\/a><\/span><\/span>\u30d7\u30ed\u30b0\u30e9\u30e0\n{<\/span>\n[<\/span> STA\u30b9\u30ec\u30c3\u30c9]<\/span>\nstatic<\/span> void<\/span> Main (<\/span> string<\/span> [<\/span> ]<\/span> args )<\/span>\n{<\/span>\nstring<\/span> s = \"\u30b7\u30b9\u30c6\u30e0\u3092\u4f7f\u7528;{0}\u540d\u524d\u7a7a\u9593 quine{0}{2}{0}{1}\u30af\u30e9\u30b9 \u30d7\u30ed\u30b0\u30e9\u30e0{0}\n{1}{2}{0}{1}{1}[STAThread]{0}{1}{1}static void Main(string(link) args){0}{1}{1}{2}{ 0}{1}{1}{1}\nstring s = {4}{6}{4};{0}{1}{1}{1}Console.Write(s, Environment.NewLine, {4}{5}t{4}, {4}{ 2}\n{4}\u3001{4}{3}{4}\u3001{4}{5}{4}{4}\u3001{4}{5}{5}{4}\u3001s);{0}{1}{ 1}{3}{0}{1}{3}{0}{3}\"<\/span> ;\n\u30b3\u30f3\u30bd\u30fc\u30eb\u3002 Write<\/span> (<\/span> s, Environment.NewLine<\/span> , \" \\t<\/span> \"<\/span> , \"{\"<\/span> , \"}\"<\/span> , \" \\\"<\/span> \"<\/span> , \" \\\\<\/span> \"<\/span> , s )<\/span> ;\n}<\/span>\n}<\/span>\n}<\/span>\n<\/pre><\/div>
\u30b9\u30ad\u30fc\u30e0<\/span><\/span><\/h4>
\n(<\/span> (<\/span>\u30e9\u30e0\u30c0<\/span>(<\/span> x )<\/span>\n(<\/span>\u30ea\u30b9\u30c8<\/span>x (<\/span>\u30ea\u30b9\u30c8<\/span>(<\/span>\u5f15\u7528<\/span>\u5f15\u7528<\/span>)<\/span> x )<\/span> )<\/span> )<\/span>\n\uff08<\/span>\u5f15\u7528<\/span>\n(<\/span>\u30e9\u30e0\u30c0<\/span>(<\/span> x )<\/span>\n(<\/span>\u30ea\u30b9\u30c8<\/span>x (<\/span>\u30ea\u30b9\u30c8<\/span>(<\/span>\u5f15\u7528<\/span>\u5f15\u7528<\/span>)<\/span> x<\/span> )<\/span> )<\/span> )<\/span> )<\/span>\n<\/pre><\/div>
\u5171\u901aLisp<\/a><\/span><\/span><\/h4>
\n(<\/span> funcall<\/span> (<\/span>\u30e9\u30e0\u30c0<\/span>(<\/span> x )<\/span>\n(<\/span> append<\/span> x (<\/span> list<\/span> (<\/span> list<\/span> '<\/span> quote<\/span> x )<\/span> )<\/span> )<\/span>\n' (<\/span> funcall<\/span> (<\/span>\u30e9\u30e0\u30c0<\/span>(<\/span> x )<\/span>\n(<\/span> append<\/span> x (<\/span> list<\/span> (<\/span> list<\/span> '<\/span> quote<\/span> x )<\/span> )<\/span> )<\/span> )<\/span> )<\/span>\n<\/pre><\/div>
OCaml<\/span><\/h4>
\n(<\/span> fun<\/span> s -> Printf<\/span> . printf<\/span> \"%s %S \" ss )<\/span> \"(fun s -> Printf.printf \\\"<\/span> %s %<\/span> S\\ \" ss )<\/span> \"\n<\/pre><\/div>
\n\"<\/figure>
\u30d1\u30a4\u30bd\u30f3<\/span><\/h4>
\na= 'a=%s;print a%%`a`'<\/span> ;print a%`a`\n<\/pre><\/div>
\u5225\u306e\u4f8b:<\/p>
\nb= ' \\\\<\/span> '<\/span> ;g= '\"'<\/span> ;p= ' %'<\/span> ;s= \"b='%s%s';g='%s';p='%s';s=%s% s%s;print s%s(b,b,g,p,g,s,g,p)\"<\/span> ;print s% (<\/span> b,b,g,p,g,s,g,p )<\/span>\n<\/pre><\/div>
\u6700\u5f8c\u306e 61 \u6587\u5b57\u304c\u524d\u306e\u4f8b\u3068\u5171\u901a\u3057\u3066\u3044\u308b\u5225\u306e\u4f8b (\u8907\u6570\u306e\u4ee3\u5165\u306b\u3088\u3063\u3066\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u9577\u3055\u304c<\/a><\/span>\u77ed\u7e2e\u3055\u308c\u306a\u3044\u3053\u3068\u3092\u793a\u3059\u305f\u3081\u3060\u3051):<\/p>
\nb,g,p,s= ' \\\\<\/span> '<\/span> , '\"'<\/span> , '%'<\/span> , \"b,g,p,s='%s%s','%s','%s',%s% s%s;print s%s(b,b,g,p,g,s,g,p)\"<\/span> ;print s% (<\/span> b,b,g,p,g,s,g,p )<\/span>\n<\/pre><\/div>
\u30eb\u30d3\u30fc<\/a><\/span><\/span><\/h4>
\n<< 2<\/span> * 2<\/span> , 2<\/span>\u3092\u5165\u308c\u307e\u3059<\/span>\n<< 2<\/span> * 2<\/span> , 2<\/span>\u3092\u5165\u308c\u307e\u3059<\/span>\n2<\/span>\n<\/pre><\/div>
JavaScript<\/a><\/span><\/span><\/h4>
\nunescape (<\/span> q= \"unescape(q=%22*%22).replace('*',q)\"<\/span> )<\/span> \u3002\u7f6e\u63db<\/span>(<\/span> '*'<\/span> ,q )<\/span>\n<\/pre><\/div>
\u30d1\u30fc\u30eb<\/span><\/h4>
\n$_<\/span> = q<\/span> {<\/span> $_<\/span> = q<\/span> {<\/span> Q }<\/span> ;s\/Q\/ $_<\/span> \/;print }<\/span> ;s\/Q\/ $_<\/span> \/;print\n<\/pre><\/div>
\u305d\u3057\u3066\u30b7\u30a7\u30eb\u3068 Perl \u306e\u6df7\u5408<\/a><\/span>:<\/p>
\nperl -le '$n=q{perl -le a$n=q{$x};($_=$n)=~s\/\\141\/\\47\/g;s\/\\$x\/$n\/ ;printa};($_=$n)=~s\/\\141\/\\47\/g;s\/\\$x\/$n\/;print'\n<\/pre>
\u30d9\u30fc\u30b7\u30c3\u30af<\/a><\/span><\/span><\/h4>
\n10 C=\": \u5370\u5237 CHR(49)+CHR(48)+CHR(32)+CHR(67)+CHR(61)+CHR(34)+C+CHR(34)+C\":\n\u30d7\u30ea\u30f3\u30c8 CHR(49)+CHR(48)+CHR(32)+CHR(67)+CHR(61)+CHR(34)+C+CHR(34)+C\n<\/pre>
\u30d1\u30b9\u30ab\u30eb<\/span><\/h4>
\nconst<\/span> a= 'const a='<\/span> ;b= '\u66f8\u304d\u8fbc\u307f\u958b\u59cb(a,#39,a,#39#59#98#61#39,b,#39#59#10,b) \u7d42\u4e86\u3002<\/span> ;\nbegin<\/span> write<\/span> (<\/span> a, # 39<\/span> , a, # 39<\/span> # 59<\/span> # 98<\/span> # 61<\/span> # 39<\/span> , b, # 39<\/span> # 59<\/span> # 10<\/span> , b )<\/span> end<\/span> \u3002\n<\/pre><\/div>
\u30d6\u30ec\u30a4\u30f3\u30d5\u30a1\u30c3\u30af<\/a><\/span><\/span><\/h4>
(\u6ce8: \u3053\u308c\u306f\u9023\u7d9a\u3057\u305f 1 \u884c\u306e\u30b3\u30fc\u30c9\u3067<\/a><\/span>\u3042\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u304c\u3001\u8aad\u307f\u3084\u3059\u304f\u3059\u308b\u305f\u3081\u306b\u6539\u884c\u304c\u8ffd\u52a0\u3055\u308c\u3066\u3044\u307e\u3059\u3002)<\/p>
\n->+>+++>>+>++>+>++++>>+>++>>>+>+>+>++>+>>>>++++>+> >+ +>+>++++>>++>++>>+>>+>++>++>\n+>>>>++++>+>>>>++>>++>>>>+>>++>+>++++>>>++>>++++++> >+ >>++>>+>>>>++++>>++++++>>+>+++\n>>>++>>++>>+>>++>>+>++++>>>++>>++++++++++++++>>+>>+ +> +>++++>++++++>>>++>>++++>>+>>\n+>+>>>>+++>>++++++>>>>++>>>>+>+>++>>+++>+>>>>+++>+ >>>>++++>+>>>>++++>>++>++>+>+\n+>+>++>++>>>>>>++>+>++++>>>>>+++>>>++>+>+++>+>+>++ >>>>>>++>>>>+>>>>++>+>>>>+++>\n+>>>+>>++>++++++++++++++++++++>>>>+>+>>>+>>++>+>++ +>>>++>>++++++++>>+>>++>+>>\n>>++++>>++++++>>>>++>++>>++++>+>+>++>+>++++>>>>>++++ >>>+ >>>>++>++++++>>>++>>++++++++\n>>+>>++>>+>>>>++++>>++++>>+>++++>>>>>>++++>+>++++>>+>+ +> >>>+>+>++>>+>>>>+++>>++++>>>+\n[[->>+<<]<+]+++++[->++++++++++<]>.[+]>>[<<++++++++[ - >++++++++<]>-\n.---->-[-<.<+>>]<[+]<+>>>]<<<[-[-[- [>>+<++++++[->++++++<]]>++++\n++++++++<]>++++<]++++++[->++++++++<]>+<<<-[->>>++< < <]>[->>.<<]<<]\n<\/pre>
\u672c\u793e9+<\/span><\/h4>
\nQ\n<\/pre>
\u30dc\u30fc\u30f3\u30b7\u30a7\u30eb<\/a><\/span>(sh)<\/span><\/h4>
\n#!\/bin\/sh<\/span>\n\u30af\u30ef\u30a4\u30f3(<\/span> )<\/span> {<\/span>\necho<\/span> -e \"#!\/bin\/sh \\n<\/span> $1\"<\/span>\n\u30a8\u30b3\u30fc<\/span>\u300c\u30af\u30a4\u30f3 '$1'\u300d<\/span>\n}<\/span>\n\u30af\u30ef\u30a4\u30f3 \u30af\u30ef\u30a4\u30f3 () {\necho -e \"#!\/bin\/sh \\\\<\/span> n$1\"\n\u30a8\u30b3\u30fc\u300c\u30af\u30a4\u30f3\\0<\/span> 47$1 \\0<\/span> 47\u300d\n}\n'<\/span>\n<\/pre><\/div>
\n\"<\/figure>
\u30d0\u30c3\u30c1 (MS-DOS)<\/span><\/h4>
\n@\u30a8\u30b3\u30fc\u30aa\u30d5\n%1 %2\n%0 \u3078\u306e<\/a><\/span>\u547c\u3073\u51fa\u3057 %%\ncall %0 goto e %%3 echo.%%4\n\u30a8\u30b3\u30fc:f\nf\u306b\u79fb\u52d5\n:e\necho.%4@\u30a8\u30b3\u30fc\u30aa\u30d5\n\u30a8\u30b3\u30fc\u3002%4%31 %32\necho.%4call %30 goto e %3%3\necho.%4call %30 goto e %3%33 echo.%3%34\necho.%4echo:f\necho.%4goto f\n\u30a8\u30b3\u30fc.%4:e\n:f\n<\/pre>
PHP<\/span><\/span><\/h4>
\n\n$a<\/span> = '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)'<\/span> ;\n\u30a8\u30b3\u30fc<\/span>chr<\/span> (<\/span> 60<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 63<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 10<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 36<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 97<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 61<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 39<\/span> )<\/span> \u3002 $a<\/span> \u3002 chr<\/span> (<\/span> 39<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 59<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 10<\/span> )<\/span> \u3002 \"\u30a8\u30b3\u30fc $a;\"<\/span> \u3002 chr<\/span> (<\/span> 10<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 63<\/span> )<\/span> \u3002 chr<\/span> (<\/span> 62<\/span> )<\/span> ;\n?><\/span>\n<\/span>\n$a<\/span> = '<\/span><\/span><\/span> '<\/span> ;\necho<\/span> str_replace<\/span> (<\/span> 1<\/span> +1<\/span> , chr<\/span> (<\/span> 39<\/span> )<\/span> . $a<\/span> . chr<\/span> (<\/span> 39<\/span> )<\/span> , $a<\/span> )<\/span> ;\n?><\/span>\n<\/span><\/span><\/pre><\/div>
PL1<\/span><\/h4>
\u6ce8: PL\/I \u3067\u66f8\u304b\u308c\u305f\u3053\u306e\u77ed\u3044 Quine \u306f\u3001OS PL\/I V2.3.0 \u30d0\u30fc\u30b8\u30e7\u30f3\u306e\u30b3\u30f3\u30d1\u30a4\u30e9\u30fc<\/a><\/span>\u3092\u4f7f\u7528\u3057\u3066\u30b3\u30f3\u30d1\u30a4\u30eb\u3055\u308c\u307e\u3059\u304c\u3001\u591a\u6570<\/a><\/span>\u306e\u30a8\u30e9\u30fc\u3084\u30a8\u30e9\u30fc\u8b66\u544a\u3092\u56de\u907f\u3059\u308b\u305f\u3081\u306b\u5de6\u30de\u30fc\u30b8\u30f3 1 \u3068COMPILE<\/i>\u30aa\u30d7\u30b7\u30e7\u30f3\u304c\u5fc5\u8981\u3067\u3059\u3002<\/p>
\n%dcl z%z='put edit';proc options(main;q=''''put list(m;do i=1,2;z(q)skip;do j=\n1to 78c=substr(m(i),j;if c=qz(c;z(c;end;z(q',';dcl(c,q)char,m(2)char(99)init(\n'%dcl z%z=''put edit'';proc options(main;q=''''''put list(m;do i=1,2;z(q)skip;do j= '\u3001\n'1to 78c=substr(m(i),j;if c=qz(c;z(c;end;z(q'','';dcl(c,q)char,m(2)char(99) )init(',\n<\/pre>
\u524d\u3078<\/span><\/h4>
\u6ce8: \u3053\u306e Quine \u306f 4 \u3064\u3059\u3079\u3066\u306e\u30b7\u30b9\u30c6\u30e0\u3067\u52d5\u4f5c\u3057\u307e\u3059\u3002<\/p>
\n: qs\" 2dup cr 115 \u653e\u51fa 34 \u653e\u51fa\u30b9\u30da\u30fc\u30b9 \u30bf\u30a4\u30d7 34 \u653e\u51fa\u30b9\u30da\u30fc\u30b9 \u30bf\u30a4\u30d7 cr\"\n2dup cr 115 \u30a8\u30df\u30c3\u30c8 34 \u30a8\u30df\u30c3\u30c8 \u30b9\u30da\u30fc\u30b9 \u30bf\u30a4\u30d7 34 \u30a8\u30df\u30c3\u30c8 \u30b9\u30da\u30fc\u30b9 \u30bf\u30a4\u30d7 cr ;\n<\/pre>
\u8ffd\u8a18<\/a><\/span><\/span><\/h4>
\n(dup == {dup cvx exec} Pop 8 12 getinterval =)\ndup cvx exec\n<\/pre>
\u30d3\u30b8\u30e5\u30a2\u30eb\u30d5\u30a9\u30c3\u30af\u30b9\u30d7\u30ed<\/span><\/h4>
\n\u30af\u30ea\u30a2<\/span>\n\u30c8\u30fc\u30af\u3092<\/span>\u30aa\u30d5\u306b<\/span>\u3059\u308b<\/span>\n\u30c6\u30ad\u30b9\u30c8\u30de\u30fc\u30b8\u3092<\/span>\u30aa\u30f3\u306b<\/span>\u8a2d\u5b9a<\/span>\n\\\u30af\u30ea\u30a2<\/span>\n\\\u30c8\u30fc\u30af\u3092<\/span>\u30aa\u30d5\u306b<\/span>\u8a2d\u5b9a<\/span>\n\\\u30c6\u30ad\u30b9\u30c8\u30de\u30fc\u30b8\u3092<\/span>\u30aa\u30f3\u306b<\/span>\u8a2d\u5b9a<\/span>\n<\/pre><\/div>
Tcl<\/span><\/h4>
\nproc<\/span> Quine {<\/span> }<\/span> {<\/span>\nset<\/span> n [<\/span> lindex<\/span> [<\/span>\u60c5\u5831<\/span>\u30ec\u30d9\u30eb0<\/span> ]<\/span> 0<\/span> ]<\/span>\nappend<\/span> s [<\/span> list<\/span> proc<\/span> $n<\/span> [<\/span> info<\/span> args $n<\/span> ]<\/span> [<\/span> info<\/span> body $n<\/span> ]<\/span> ]<\/span> \\n [<\/span> list<\/span> $n<\/span> ]<\/span>\n$s<\/span>\u3092\u5165\u308c\u308b<\/span>\n}<\/span>\n\u30af\u30ef\u30a4\u30f3\n<\/pre><\/div>
\u305d\u306e\u4ed6<\/span><\/h3>
\u30d5\u30e9\u30f3\u30b9\u8a9e<\/span><\/h4>
\n\u5f15\u7528\u7b26\u306e\u9593\u306e\u6587\u3092\u30b3\u30d4\u30fc\u3057\u3066\u304b\u3089\u30b3\u30d4\u30fc\u3057\u307e\u3059 \u300c\u5f15\u7528\u7b26\u306e\u9593\u306e\u6587\u3092\u30b3\u30d4\u30fc\u3057\u3066\u304b\u3089\u30b3\u30d4\u30fc\u3057\u307e\u3059\u300d\u3002\n<\/pre><\/div>
\n\"<\/figure>
\u53c2\u8003\u8cc7\u6599<\/h2>
  1. \u0643\u0648\u0627\u064a\u0646 (\u062d\u0648\u0633\u0628\u0629) \u2013 arabe<\/a><\/li>
  2.  \u041a\u0443\u0456\u043d \u2013 Belarusian (Tara\u0161kievica orthography)<\/a><\/li>
  3.  \u0421\u0430\u043c\u043e\u0438\u0437\u043f\u0438\u0441\u0432\u0430\u0449\u0430 \u0441\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u0430 \u2013 bulgare<\/a><\/li>
  4.  Quine (program) \u2013 tch\u00e8que<\/a><\/li>
  5.  Quine (programmering) \u2013 danois<\/a><\/li>
  6.  Quine (Computerprogramm) \u2013 allemand<\/a><\/li><\/ol><\/div>\n
    \n 
    \n  Quine (\u30b3\u30f3\u30d4\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0)\u306b\u3064\u3044\u3066\u8a73\u3057\u304f\u89e3\u8aac\u30fb\u95a2\u9023\u52d5\u753b\n <\/h2>\n 
    \n  \n  
    \n   
    \n