指数関数的発散(16)

Perl

チェックする位置が増えても、この程度なら問題ない。

$s = " foo " x 100 . "z";
$s =~ /(?:\s*foo\s*)*(?:\s*foo\s*)*(?:\s*foo\s*)*
(?:\s*foo\s*)*(?:\s*foo\s*)*(?:\s*foo\s*)*(?:\s*foo\s*)*
(?:\s*foo\s*)*(?:\s*foo\s*)*(?:\s*foo\s*)*\z/;

しかし、記録領域を無制限に取るというのも危険なので、多分どこかで制限している筈。文字列長を長くするとコアを吐くので、それを調べることができない。