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

開発環境

• 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) の4章(サブルーチン), 4.12(練習問題)、3を解いてみる。

3.

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

コード( TextWrangler)

#!/usr/bin/perl -w # 数値のリストのその合計を返すサブルーチン sub total{ my $sum=0; foreach (@_){ $sum+=$_; } $sum; } # 数値のリストのその平均を返すサブルーチン sub average{ total(@_)/@_; } # 数値のリストのその平均より大きなもののリストを返すサブルーチン sub above_average{ my @list; my $average=average(@_); foreach (@_){ if($_>$average){ push(@list,$_); } } @list; } my @fred=above_average(1..10); print "\@fred is @fred\n"; print "(Should be 6 7 8 9 10)\n"; my @barney=above_average(100, 1..10); print "\@barney is @barney\n"; print "(Should be just 100)\n";

入出力結果(Ternimal)

@fred is 6 7 8 9 10 (Should be 6 7 8 9 10) @barney is 100 (Should be just 100)

問1で作成したサブルーチンtotalを使ってみた。(若干変更した点: サブルーチン内の変数はmy演算子をつけてなるべくプライベートな変数にしたほうがいいみたい(？)なので$sumにmyを使用)

これまでよりコードが少し長くなったので(とはいってもわずかですが)、実行するとき想定どおりの結果がでるかドキドキしたけど成功！