Created by
sironekotoro
| #!/usr/bin/env perl
use strict;
use warnings;
# Perl入学式 2018 第2回 練習問題
# https://github.com/perl-entrance-org/workshop-2018/blob/master/2nd/slide.md
# 練習問題(fizzbuzz.pl)
# FizzBuzz問題にチャレンジ!!
# 1から100までの数字について, 以下のようなルールに従って表示を行うfizzbuzz.plを作成しよう!
# その数字が3で割り切れるならFizz
# 5で割り切れるならBuzz
# 3でも5でも割り切れるならFizzBuzz
# 3でも5でも割り切れないならその数字
my @numbers = ( 1 .. 100 );
for my $number (@numbers) {
if ( $number % 3 == 0 && $number % 5 == 0 ) {
print "fizzbuzz\n";
}
elsif ( $number % 3 == 0 ) {
print "fizz\n";
}
elsif ( $number % 5 == 0 ) {
print "buzz\n";
}
else {
print "$number\n";
}
}
|