多言語FizzBuzzチャレンジ23日目:Perl

これまでのまとめ

本日のお品書き

二日続けて手続型言語です。さくさくいきたいですね。

FizzBuzz

fizzbuzz.pl

foreach $i ((1..100)) {
  if ($i % 15 == 0) {
    print "FizzBuzz\n";
  } elsif($i % 3 == 0) {
    print "Fizz\n";
  } elsif($i % 5 == 0) {
    print "Buzz\n";
  } else {
    print "$i\n";
  }
}

おまけ；実行方法

perl fizzbuzz.pl