HOP（Higher-Order Perl）にしたがって，リンクトリスト*1を考えます．HOPでいうところのリンクトリストは，それらしく書くと以下のものです． linked_list = node node | [ head, tail ] | [ head, undef] tail = node 言葉でいうと次のどちらかが成り立つ…

毎回手動で作っていては大変なので，規則に応じて自動的にリンクトリストを生成することを考えます．基本となるのは次の関数です． sub node{ my ($head, $tail)=@_; return [$head, $tail]; } ノードの要素と次の要素へのポインタ（ここでは無名配列）を与…