先日 textfile.orgのほうに書いた「メモ化」に対して、 Hiroto Inabaさんが、Perl版を送ってくださいました。ありがとうございます (Hiroto Inabaさんは、K.Inabaさんとは別の方でした。すみません)。 Hiroto Inabaさんから 「メモ化(memoization), 再帰関数定義関数, 最小不動点」について、メモ化までPerlでやってみました。フィボナッチの定義はちょっと変えました（$fib->(0) == 0)。 use strict; use warnings "all"; sub fix { my ($G) = @_; my $f; return $f = $G->(sub { $f->(@_) }); } sub fixmemo { my ($G) = @_; my %memo; my $f; return $f = $G->(sub {