だんぺんぶこみっく

2007-05-2620070526

[] 06:58 20070526 - だんぺんぶこみっく を含むブックマーク

上の記事のやつをもうすこし別の考え方でやる(これは実際に書いて確かめた)

use strict;
use warnings;

#長さ101(にする)配列
my @ar = (0);

#@arの値によって表示する文字
my @tex = ( '', 'Fizz', 'Buzz', 'FizzBuzz' );

for( my $i=1;  $i<=100;  $i++ ) {
  $ar[$i] = 0;
}

for( my $i3=3;  $i3<=100; $i3+=3 ) {
  $ar[$i3] += 1;
}

for( my $i5=5;  $i5<=100; $i5+=5 ) {
  $ar[$i5] += 2;
}

for( my $x=1; $x<=100; $x++ ) {
  if( $ar[$x] == 0 ) {
    print "$x\n";
  }
  else {
    print "$tex[$ar[$x]]\n";
  }
}
トラックバック - http://fragments.g.hatena.ne.jp/TakahashiMasaki/20070526