Perlでちえんひょうか - Pixel Pedals of Tomakomai

Perlは正格評価なので、無限リストにheadをかけても停止してくれない。 use strict; use warnings; sub nil() { 'Nil' } sub concat($$) { my ($x, $xs) = @_; [$x, $xs]; } sub repeat($); sub repeat($) { my $x = shift; concat $x, (repeat $x); } sub head($) { my $xs = shift; $xs->[0]; } print head(concat 1, concat 2, nil), "\n"; print +(head repeat 1), "\n"; # ←無限ループ ちえんひょうかさせるために、単純に以下のルールで書き換えると、headが止まってくれるようになる。 値はsub {}で包む 値を使う場合は -

[hiratara]

Perlでちえんひょうか

[nkgt_chkonk]

なるほど