challenge-001/abigail/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/opt/perl/bin/perl

use 5.032;

use strict;
use warnings;
no  warnings 'syntax';

use experimental 'signatures';
use experimental 'lexical_subs';

#
# See https://theweeklychallenge.org/blog/perl-weekly-challenge-001
#

#
# Run as: perl ch-2.pl < input-file
#

while (<>) {
    foreach my $number (1 .. $_) {
        say $number % 15 == 0 ? "fizzbuzz"
          : $number %  5 == 0 ? "buzz"
          : $number %  3 == 0 ? "fizz"
          :                      $number
    }
}