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

開発環境

• 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(練習問題)、2を解いてみる。

2.

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

コード( TextWrangler)

#!/usr/bin/perl -w sub total{ $sum=0; foreach (@_){ $sum+=$_; } $sum; } print "The total of (1..1000) is ",total(1..1000),".\n";

入出力結果(Ternimal)

The total of (1..1000) is 500500.

今日は前の問題で作成したサブルーチンを使用するだけなのですぐ終了！

なので試しに1から1000,000まで合計も求めてみる。

コード( TextWrangler)

#!/usr/bin/perl -w sub total{ $sum=0; foreach (@_){ $sum+=$_; } $sum; } print "The total of (1..1000000) is ",total(1..1000000),".\n";

入出力結果(Ternimal)

The total of (1..1000000) is 500000500000.

1から1000までの合計を求めるより少し時間がかかった気がする。

さらに1から1000,000,000までの合計を求めようとしたらフリーズしたので強制終了。

CPUの問題かと思ったけどActivity Monitorをみたらメモリーの問題(？)みたい。

どれだけのメモリーの容量があれば1から1000,000,000までの合計を求められるのかなあ？