Lmap/filterの第一引数には sub を省略した無名サブルーチンを使えますが，そのサブルーチンの引数は一個で，$_[0] を使います．一方，Perlの組み込みのmap/grepでは，デフォルトの $_ を使います．そこで，Lmap/filterでも同じように $_ に変更してみます．…

mapの次はgrep．名前をfilterにします． sub filter(&$){ my ($f,$l) = @_; return unless $l; my $temp=head($l); if ($f->($temp)){ node($temp, &filter($f,tail($l))); }else{ &filter($f,tail($l)); } } filterはリンクトリストのノードを一個一個たど…

sub Lmap(&$){ my ($f, $l) = @_; return unless $l; node ($f->(head($l)), Lmap($f, tail($l)) ); } listのmapということで，Lmapとしました．Higher-Order Perlでは，transformという名前になっていますが，mapの方が短いので(^^;．これを実行してみると …