细胞分裂游戏

yinyuemi

回复 16# bikkuri

1. BEGIN{srand();
   
2. b["o-1"]=".";b["o-2"]="0";b["o-3"]="o";b["0-1"]=".";b["0-2"]="8";b["0-3"]="0";b["8-1"]=".";b["8-2"]="oo";b["8-3"]="o.";b[".-1"]=".";b[".-2"]=".";b[".-3"]=".";
   
3. p="o";
   
4. while(i++<100){
   
5.   print i,p;
   
6.   t="";
   
7.   l=split(p,x,"");
   
8.   for(n=1;n<=l;n++){
   
9.     r=rand();
   
10.         if(r<0.1){j=1}
    
11.         else if(r<0.9){j=2}
    
12.         else{j=3};
    
13.         t=t b[x[n]"-"j];
    
14.   };
    
15. if(t~/^\.*$/){print i+1,t;exit};
    
16. p=t
    
17. }
    
18. }

复制代码

bikkuri

哇！好强啊！我本来还打算参照你的perl脚本自己改awk脚本的呢！太感谢了！
awk的效率好像还是稍微比perl差一点点，但差的不多吧。
perl脚本用大于号>可以重定向到文件，但是用tee不能重定向。
awk脚本的话两个都可以。
如果增加细胞周期数，在linux下脚本运行不到150行左右就运行不下去了。。。
但是从前面几行运行速度来看，并不是运行速度变慢了，而是根本运行不下去了。。。
不知道是不是缓冲区溢出了？
从重定向生成的脚本来看，最后一行长度是147456，等于16进制的24000。
难道这是缓冲区的上限？
有办法可以写出运行千行的脚本吗？
还有感觉awk脚本产生的细胞数总是会比perl脚本产生的细胞数要少。
我试了很多次都是这样的结果。
不知道是不是因为随机数的原因。
难道perl的随机函数值比awk的随机函数值偏大？

yestreenstars 发表于 2014-04-01 15:27
回复 18# bikkuri

从我19楼的效率测试你应该知道我是怎么重定向的了吧？

bikkuri

这次修改后效率高多了。
至少在我的busybox上可以在十几分钟之内跑完。
而昨天的脚本即使在linux上也要跑一个多小时。
是什么导致了效率的差别这么大呢？

yinyuemi 发表于 2014-04-01 15:37
回复 16# bikkuri

yinyuemi

回复 23# bikkuri


    l=split(p,x,""); 这一步
    之前的脚本，每次循环，都要split， 把它放到循环外，所以快了

bikkuri

原来是这样！

yinyuemi 发表于 2014-04-01 16:13
回复 23# bikkuri

bikkuri

怎么在我的树莓派（Debian操作系统）上运行这个程序的awk版本报错了：

1. awk: ./cell.awk.sh: line 28: illegal reference to array b

复制代码

第28行

1. for(i=0;i++<length(b);){

复制代码

非法引用数组b?
要怎么修改才能避免这个错误呢？
perk版本倒是没有任何错误。
谢谢。

yestreenstars 发表于 2014-04-01 15:20
回复 14# bikkuri

根据我的perl脚本改写的awk脚本：效率测试：从上面的数据可知，awk的效率不比perl低。 ...

bikkuri

我发现树莓派上的awk版本是mawk，我重新装了一个gawk就不报错了。

bikkuri 发表于 2015-02-12 20:07
怎么在我的树莓派（Debian操作系统）上运行这个程序的awk版本报错了：第28行非法引用数组b?
要怎么修改才能 ...