海龟图(For Fun)(修改版)
发布时间:2020-12-15 21:09:38 所属栏目:大数据 来源:网络整理
导读:今天PHP站长网 52php.cn把收集自互联网的代码分享给大家,仅供参考。 #!/usr/bin/perl#turtle walk in his room,writeing or doing nothing#$pen=1(write) 0(do nothing) -1(end program)use warnings;use strict;my $Max
以下代码由PHP站长网 52php.cn收集自互联网 现在PHP站长网小编把它分享给大家,仅供参考 #!/usr/bin/perl #turtle walk in his room,writeing or doing nothing #$pen=1(write) 0(do nothing) -1(end program) use warnings; use strict; my $MaxSize = 30; my @turtle; my $Now = 0; my $Old = 0; my $pen = 0; my $step = 0; while ($pen = <STDIN>){ chomp $pen; last if $pen == -1; chomp ($step = <STDIN>); $Now = $Old + $step; if ($Old <= $Now){ for ($Old..$Now){ $turtle[$_] = 1 if $pen == 1; } }else{ for ($Now..$Old){ $turtle[$_] = 1 if $pen == 1; } } chomp ($step = <STDIN>); $Old = $Now; if ($step >= 0){ for (1..$step){ $turtle[$Old+$_*$MaxSize] = 1 if $pen==1; } }else{ for ($step..-1){ $turtle[$Old+$_*$MaxSize] = 1 if $pen==1; } } $Old = $Now + $step * $MaxSize; die "error,out of room." if $Old>=$MaxSize*$MaxSize || $Old<0; for (0..$MaxSize*$MaxSize-1){ print "n" if ($_%$MaxSize==0 && $_!=0); $turtle[$_] ? print "* " : print "- "; } } 以上内容由PHP站长网【52php.cn】收集整理供大家参考研究 如果以上内容对您有帮助,欢迎收藏、点赞、推荐、分享。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |