読者です 読者をやめる 読者になる 読者になる

おっと飲み会まで時間がある、さて何しよう

仕事終わり、さて飲み会まで時間がある。新しいことに取り掛かるには、持っている1時間弱はどうにも具合が悪い。
よし、何か学ぼう。何があるだろうか。業務でも少し触って、本も持ってるR?
開いてみる。
どうにも捗りそうにない。
プログラミングコンテストの類で、短い時間で解ける問題なんていいんじゃないだろうか。ググる
そういえばFizzBuzz問題ってあったな。なんだっけ、素数だとFizzBuzzって表示だっけ。。

http://d.hatena.ne.jp/JunichiIto/20111007/1317976730
ちょうどよさそうなのあった。よしやってみる

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

my $end = $ARGV[0];

for my $num (1 .. $end) {
   if ($num % 15 == 0) {
       print "FizzBuzz\n";
   } elsif ($num % 3 == 0) {
       print "Fizz\n";
   } elsif ($num % 5 == 0) {
       print "Buzz\n";
   } else {
       print $num . "\n";
   }
}

たぶん5分ぐらい。見返してみると、for文で(1 .. $end)系を使ったとは意外、while文で$seq < $endみたいな条件で回しそうなもんなのに。