博客从打印源程序开始: Quine

最新推荐文章于 2020-04-28 19:58:05 发布

fxue_cn

最新推荐文章于 2020-04-28 19:58:05 发布

阅读量1.3k

点赞数

文章标签： whitespace string ruby python haskell c

本文链接：https://blog.csdn.net/fxue_cn/article/details/6278679

版权

很早就听说过Quine，然而从来没动手写过一个。最近因为写完了论文，又搞定了签证，堕落到“蛋疼”，所以来玩一下。

简单的来说，quine就是写一个程序，然后这个程序的输出就是程序的源代码自身(self-replicating programs, self-reproducing programs)。

思路：

[code a] print str = "[code a] print str = @@ [code b]" [code b]

其中code a是任意的程序a，code b类似； print是打印函数；str 是一个字符串，字符串里@@表示"字符串本身"。code a, b不会调用print函数；print函数用来打印字符串str：首先打印code a，然后打印print语句自身，然后打印字符串，然后打印code b。

蛋疼的coding开始了，语言用的c++，程序如下：

#include <iostream> #include <string> void PrintData(const std::string & str) { for (unsigned i = 0; i < str.size(); ++i) { std::cout << "/n"; for (int j = 0; j < 12; j++) std::cout << " "; std::cout << "/""; while (i < str.size() && str[i] != '/n') { switch (str[i]) { case '//': std::cout << ""; break; case '/"': std::cout << "///""; break; case '/t': std::cout << "///t"; break; default: std::cout << str[i]; } ++i; } std::cout << "//n/""; } } int main() { std::string str = "#include <iostream>/n" "#include <string>/n" "/n" "void PrintData(const std::string & str)/n" "{/n" " for (unsigned i = 0; i < str.size(); ++i)/n" " {/n" " std::cout << /"//n/";/n" " for (int j = 0; j < 12; j++) std::cout << /" /";/n" " std::cout << /"///"/";/n" " while (i < str.size() && str[i] != '//n')/n" " {/n" " switch (str[i])/n" " {/n" " case '': std::cout << /"/"; break;/n" " case '///"': std::cout << /"///"/"; break;/n" " case '//t': std::cout << /"//t/"; break;/n" " default: std::cout << str[i];/n" " }/n" " ++i;/n" " }/n" " std::cout << /"n///"/";/n" " }/n" "}/n" "/n" "int main()/n" "{/n" " std::string str = @@;/n" " for (unsigned i = 0; i < str.size(); ++i)/n" " {/n" " if (str[i] == '@' && str[i+1] == '@')/n" " {/n" " PrintData(str); i+=1;/n" " }/n" " else std::cout << str[i];/n" " }/n" " return 0;/n" "}/n"; for (unsigned i = 0; i < str.size(); ++i) { if (str[i] == '@' && str[i+1] == '@') { PrintData(str); i+=1; } else std::cout << str[i]; } return 0; }

程序中PrintData用来打印这个字符串，因为C++的转义符很麻烦，所以这里有额外的处理。main函数里面首先定义字符串str，然后是一个for语句用来打印这个整个源程序，当遇到@@的时候调用PrintData函数来打印字符串str本身。

因为涉及c的字符转义，所以非常的“蛋疼”，上网搜了一下，更有达人，把字符串的每个字符写成ASCII码！

当然，这个世界上天才很多，下面是有史以来最简单的用c表示的quine程序：

main() { char *s="main() { char *s=%c%s%c; printf(s,34,s,34); }"; printf(s,34,s,34); }

程序很简单，首先省去stdio.h的include，然后省去main的返回值。main函数里，首先定义字符串s，注意这里有%c%s%c作为待定参数，因为s=后面有引号。%s的位置用来接受字符串本身，非常聪明！！例外，它也不涉及转义，因为用ASCII码34表示引号。

神一般的quine in c！

不过，还有更神的quine！

第一个：世界地图

v=0000;eval$s=%q~d=%!^Lcf<LK8, _@7gj*LJ=c5nM)Tp1g0%Xv.,S[<>YoP "%.#% :::##" 97N-A&Kj_K_><wS5rtWk@*a+Y5 ::##########" O98(Zh)'Iof*nm.,$C5Nyt= "##: ###############" g6`YT+qLw9k^ch|K'),tc #. .####:#######" lL27FZ0ij)7TQCI)P7u ##### # :############" R,YvZ_rnv6ky-G+4U' #######################" 00x8RR%`Om7VDp4M5 ############:#### %#####" EGgDt8Lm#;bc4zS^ .#############:##% .## ." /,}.YOIFj(k&q_V .################. #. " ;s="v=%04o;ev"% :##############% : " ])[n=0].to_i;)% ######### " ;;"%c"%126+$s<< #######% " |/s|".*"/,"");; :######. " ;d=d.unpack"C*" .######: . " )*90+(c-2)%91}; " :#######% :###### #: " &&"H*";e=Zlib:: .####% :: " &&e).unpack("b*" %### " ;w=(Math.sqrt(1-( .#% " ;2))*23).floor;(w* " )[y*z=360,z]*2;u=u[ " ;y*80)+120-w+x]=(""<< " . " ;"0"))/u.size]}};;puts/ "*18+ ( "# :#######" ;"Copyright(C).Yusuke End/ Copyright(C).Yusuke Endoh, 2010

这个ruby程序不但会打印自身，而且中间的这个世界地图，会向右旋转！不信你把他保存为rb文件，然后运行50次看看。

第二个：多语言自身复制循环 (转载自:http://d.hatena.ne.jp/ku-ma-me/20090916/p1)

# ruby l=92.chr;eval s="s=s.dump[r=1..-2].gsub(/("+l*4+"){4,}(?!/")/){|t|'/"+l*%d+/"'%(t .size/2)};5.times{s=s.dump[r]};puts/"# python//nprint(///"# perlnprint(// /"# lua"+l*4+"nprint("+l*7+"/"(* ocaml *)"+l*8+"nprint_endline"+l*15+"/"-- haskel l"+l*16+"nimport Data.List;import Data.Bits;import Data.Char;main=putStrLn("+l*31 +"/"/* C */"+l*32+"n#include<stdio.h>"+l*32+"nint main(void){char*s[501]={"+l*31+ "/"++intercalate"+l*31+"/","+l*31+"/"(c(tail(init(show("+l*31+"/"/* Java */"+l*32 +"npublic class QuineRelay{public static void main(String[]a){String[]s={"+l*31+" /"++intercalate"+l*31+"/","+l*31+"/"(c("+l*31+"/"brainfuck"+l*64+"n++++++++[>++++ <-]+++++++++>>++++++++++"+l*31+"/"++(concat(snd(mapAccumL h 2("+l*31+"/"110"+l*31 +"/"++g(length s)++"+l*31+"/"22111211100111112021111102011112120012"+l*31+"/"++co ncatMap("+l*32+"c->let d=ord c in if d<11then"+l*31+"/"21002"+l*31+"/"else"+l*31+ "/"111"+l*31+"/"++g d++"+l*31+"/"22102"+l*31+"/")s++"+l*31+"/"2100211101012021122 2211211101000120211021120221102111000110120211202"+l*31+"/"))))))++"+l*31+"/","+l *63+"/""+l*64+"n"+l*63+"/"};int i=0;for(;i<94;i++)System.out.print(s[i]);}}"+l*31 +"/")))))++"+l*31+"/",0};int i=0;for(;s[i];i++)printf("+l*63+"/"%s"+l*63+"/",s[i] );puts("+l*63+"/""+l*63+"/");return 0;}"+l*31+"/");c s=map("+l*32+"s->"+l*31+"/"" +l*63+"/""+l*31+"/"++s++"+l*31+"/""+l*63+"/""+l*31+"/")(unfoldr t s);t[]=Nothing; t s=Just(splitAt(if length s>w&&s!!w=='"+l*31+"/"'then 501else w)s);w=500;f 0=Not hing;f x=Just((if x`mod`2>0then '0'else '1'),x`div`2);g x= reverse (unfoldr f x); h p c=let d=ord c-48in(d,replicate(abs(p-d))(if d<p then '<'else '>')++"+l*31+"/" ."+l*31+"/");s="+l*31+"/"# ruby"+l*32+"n"+l*31+"/"++"+l*31+"/"l=92.chr;eval s=/"+ (z=l*31)+/"///"/"+s+z+/"///""+l*31+"/"++"+l*31+"/""+l*32+"n"+l*31+"/""+l*15+"/""+ l*7+"/")"+l*4+"n///")///")/"########### (c) Yusuke Endoh, 2009 ###########/n"

这个程序运行以下的命令，又变成自身的了！这些命令首先是ruby转python，再转perl，再转lua，再转ocaml，再转ghc，再转c，再转java，再转beef，再转whitespace，再转unlamba……

$ ruby QuineRelay.rb > QuineRelay.py $ python QuineRelay.py > QuineRelay.pl $ perl QuineRelay.pl > QuineRelay.lua $ lua QuineRelay.lua > QuineRelay.ml $ ocaml QuineRelay.ml > QuineRelay.hs $ runghc QuineRelay.hs > QuineRelay.c $ gcc -Wall -o QuineRelay QuineRelay.c && ./QuineRelay > QuineRelay.java $ javac QuineRelay.java && java QuineRelay > QuineRelay.bf $ beef QuineRelay.bf > QuineRelay.ws $ wspace QuineRelay.ws > QuineRelay.unl $ unlambda QuineRelay.unl > QuineRelay2.rb $ diff QuineRelay1.rb QuineRelay2.rb

其中各解释器/编译器的版本是：