プログラミング学習の記録 608.2 15章(スマートマッチとgiven-when)の練習問題2 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の15章(スマートマッチとgiven-when), 15.6(練習問題)、2を解いてみる。

 

2.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

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

my $message="";
given(chomp(my $num=<STDIN>)){
  when($num % 3==0){$message.="Fizz ";continue}
  when($num % 5==0){$message.="Bin ";continue}
  when($num % 7==0){$message.="Sausage";}
  }
say $message;

入出力結果(Ternimal)

$ ./my_program 3 Fizz $ ./my_program 5 Bin $ ./my_program 7 Sausage $ ./my_program 15 Fizz Bin $ ./my_program 21 Fizz Sausage $ ./my_program 35 Bin Sausage

15でちゃんと"Fizz Bin"と表示された。

ループで1から1000までの数値を渡して"Fizz Bin Sausage"と表示する最小の数を調べる。

コード(TextWrangler)

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

foreach(1..1000){
  my $message="";
  given($_){
    when($_ % 3==0){$message.="Fizz ";continue}
    when($_ % 5==0){$message.="Bin ";continue}
    when($_ % 7==0){$message.="Sausage";}
    }
    if($message eq "Fizz Bin Sausage"){
      say "$_ $message";
      last;
      }
}

入出力結果(Ternimal)

$ ./my_program 105 Fizz Bin Sausage

"Fizz Bin Sausage"と表示する最小の数は105。

ついでに1から105までの数すべてを表示してみる。

コード(TextWrangler)

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

foreach(1..105){
my $message="";
  given($_){
    when($_ % 3==0){$message.="Fizz ";continue}
    when($_ % 5==0){$message.="Bin ";continue}
    when($_ % 7==0){$message.="Sausage";}
    }
    say "$_ $message";
}

入出力結果(Ternimal)

$ ./my_program 1 2 3 Fizz 4 5 Bin 6 Fizz 7 Sausage 8 9 Fizz 10 Bin 11 12 Fizz 13 14 Sausage 15 Fizz Bin 16 17 18 Fizz 19 20 Bin 21 Fizz Sausage 22 23 24 Fizz 25 Bin 26 27 Fizz 28 Sausage 29 30 Fizz Bin 31 32 33 Fizz 34 35 Bin Sausage 36 Fizz 37 38 39 Fizz 40 Bin 41 42 Fizz Sausage 43 44 45 Fizz Bin 46 47 48 Fizz 49 Sausage 50 Bin 51 Fizz 52 53 54 Fizz 55 Bin 56 Sausage 57 Fizz 58 59 60 Fizz Bin 61 62 63 Fizz Sausage 64 65 Bin 66 Fizz 67 68 69 Fizz 70 Bin Sausage 71 72 Fizz 73 74 75 Fizz Bin 76 77 Sausage 78 Fizz 79 80 Bin 81 Fizz 82 83 84 Fizz Sausage 85 Bin 86 87 Fizz 88 89 90 Fizz Bin 91 Sausage 92 93 Fizz 94 95 Bin 96 Fizz 97 98 Sausage 99 Fizz 100 Bin 101 102 Fizz 103 104 105 Fizz Bin Sausage

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。