オブジェクト指向はオワコン？ part2

>>217 >>218 2012年ころ試しに書いたFiizBuzzのPerlコード見つかった

for (1..20) {
　$a = '';
　$a = 'fizz' if 0 == $_ % 3;
　$a .= 'buzz' if 0 == $_ % 5;
　$a ||= $_;
　print "$a\n";
}


$ perl FizzBuzz.pl
1
2
fizz
4
buzz
fizz
7
8
fizz
buzz
11
fizz
13
14
fizzbuzz
16
17
fizz
19
buzz