其实，可以用perl来做动漫片

vio

perl -e 'map {print " "x$_->[0],$xx=(keys(%x))[int(rand 4)],"-"x$_->[1],$x{$xx},"\n"} (@_=([5,0],[4,2],[3,3],[2,4],[1,4],[0,3],[0,2],[1,0]),reverse @_) while (%x=(a,t,t,a,g,c,c,g))'

－－"
tooooold...

socyno

厉害~~~~~~~~~~

royalzhang

好玩

redspider

  现在酒喝多了，有点糊涂，做个记号先，等清醒了来看。

2gua

原帖由 redspider 于 2007-8-3 21:38 发表
  现在酒喝多了，有点糊涂，做个记号先，等清醒了来看。

昨晚偶也喝了。

YGC

强。。。

2gua

运行报错。。。

geshutian

原帖由 vio 于 2007-8-3 19:56 发表
perl -e 'map {print " "x$_->[0],$xx=(keys(%x)),"-"x$_->[1],$x{$xx},"\n"} (@_=([5,0],[4,2],[3,3],[2,4],[1,4],[0,3],[0,2],[1,0]),reverse @_) while (%x=(a,t,t,a,g,c,c,g))'

－－"
tooooold...

弓虽，佩服创意！

xiaoquqi

眼花缭乱哦 好玩

sun-shine

创意不错