11 lines
177 B
Perl
11 lines
177 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use feature qw(say);
|
||
|
|
|
||
|
|
for my $i (1..100) {
|
||
|
|
say $i % 15 == 0 ? "FizzBuzz"
|
||
|
|
: $i % 3 == 0 ? "Fizz"
|
||
|
|
: $i % 5 == 0 ? "Buzz"
|
||
|
|
: $i;
|
||
|
|
}
|