FizzBuzzWhizz

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl

use strict;

die "Wrong argument numbern" if @ARGV != 3;

# print to file if you wish to
# open STDOUT,">>","fizzed.txt" or die "Can't writen";

my ($fiz,$buz,$wiz) = @ARGV;

for(1..100){
	my $turned = my $fizzed = undef;
	{
		local $_ = $_;
		while( defined ){
			if (substr($_,1) eq $fiz){
				$fizzed = print "Fizzn";
				last;
			}
			$_ = substr($_,1);
		}
	}
	next if $fizzed;
	$turned = print "Fizz" if $_ % $fiz == 0;
	$turned = print "Buzz" if $_ % $buz == 0;
	$turned = print "Whizz" if $_ % $wiz == 0;
	print unless $turned;
	print "n";
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!