変形Fizz-Buzz問題

引き続き

• http://ja.doukaku.org/77/

一瞬で終わるが，論理否定を取ってしまっているので負け組．達人たちのコードが読めない．．．
まず，mapを使いこなせるようにしないと．

コード

#!/usr/bin/perl
use strict;
use warnings;

for(my $i = 1; $i <= 20; $i++){
  printf("%2d:", $i);
  if($i % 3 == 0){ print "Fizz" };
  if($i % 5 == 0){ print "Buzz" };
  if($i % 3 != 0 && $i % 5 != 0){ print "hoge" };
  print "\n";
}