Perl - スマートマッチとgiven-when(3、5、7の倍数)

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤 嘉雪 翻訳

開発環境

• OS X Lion - Apple(OS)
• BBEdit - Bare Bones Software, Inc.(Text Editor)
• Script言語:Perl

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

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

2.

コード(BBEdit)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';

for(1..105){
  print "$_: ";
  given( $_ ){
    when( $_ % 3 == 0){ print "Fizz "; continue;}
    when( $_ % 5 == 0){ print "Bin "; continue;}
    when( $_ % 7 == 0){ print "Sausage";}
  }
  print "\n";
}

入出力結果(Terminal)

$ ./sample.pl
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
$

ちなみにJavaScriptの場合。

コード(BBEdit)

var result = "";
for(var i = 1; i <= 105; i++){
  result = result + i + ":";
  if( i % 3 === 0) result += " Fizz";
  if( i % 5 === 0) result += " Bin";
  if( i % 7 === 0) result += " Sausage";
  result += "\n";
}
$('#pre0').text(result);

pythonの場合。

sample.py

コード(BBEdit)

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

result = ""
for x in range(1, 106):
    result += "{0}:".format(x)
    if x % 3 == 0: result += " Fizz"
    if x % 5 == 0: result += " Bin"
    if x % 7 == 0: result += " Sausage"
    result += "\n"

print(result, end="")

入出力結果(Terminal)

$ ./sample.py
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
$