FizzBuzz問題

2019年7月23日

FizzBuzz問題

foreach my $n (1 .. 100) {
my $matched = 0;
if (! ($n % 3)) {
print "Fizz";
$matched = 1;
}
if (! ($n % 5)) {
print "Buzz";
$matched = 1;
}
if (! $matched) {
print $n;
}
print "\n";
}

こんなんしかできません(>_<)