Perlで書く 

Perlで書く 2009.02.01 Vol.227

=====================================================================
Perlで書く 2009.02.01 Vol.227
[WAZA]メモ化
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●メモ化

　メモ化を行います。関数の引数と戻り値のペアを記録して、同一引数の
関数呼び出しの場合には記録した値を返すようにします。2回目以降の関数
呼び出しに対しては関数の処理を実行しなくなるので処理を高速化できる
場合があります。

---------------------------------------------------------------------
use strict;
use warnings;
use Memoize;

memoize('fibonacci'); # fibonacci関数をメモ化の対象にする

print fibonacci(30), "\n";

sub fibonacci {
    my $n = shift;
    
    if ($n == 0) {
        return 0;
    }
    if ($n == 1) {
        return 1;
    }
    return fibonacci($n - 2) + fibonacci($n - 1);
}
---------------------------------------------------------------------

●関連項目

  なし

=====================================================================
■雑記

　2月12日と13日にDevelopers Summit 2009が開催されます(*1)。一部は
もう満席になっていますけど、ほとんどのセッションは残席があります。
唯一Perlという単語が入っている「CodeZineスペシャルセッション　
モダンPerlプログラミング」もまだ残席があるので、興味のある方は申し
込んでみてはいかがでしょうか。無料です。私はこのセッションも含めて
13日のセッションにいくつか申し込んでみました。

*1 http://codezine.jp/devsumi/2009/

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：844
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。