2010年3月19日金曜日

FizzBuzz(フィズ・バズ)をPerlでコーディング

FizzBuzz

FizzBuzzの問題が、プログラミングの試験に出るという事で
さっそく解いてみた。
間違っていたら、コメント下さい(^^)v

#!/usr/bin/perl -w

# PROGRAM NAME : FizzBuzz.cgi

##### モジュールの読込み
use utf8;
use warnings;
use strict;
use CGI;

our $cgi = new CGI;

print $cgi->header('text/plain; charset=utf-8');

for(my $i=1 ; $i <100 ; $i++){
print "$i:";

if($i%3 == 0){
print "Fizz";
}

if($i%5 == 0){
print "Buzz";
}

print "\n";

}#for end

音読

最近、音読する機会が多く、すごく疲れると思い調べてみると、
脳にとって非常に良い事がわかった。
これからも、続けよう。

新聞の音読
http://www.matsusen.jp/ondoku/index.html