>>711 たびたびｺﾞﾒﾝ、微妙に間違えていた、この入力の場合答えは変わらないけど
sub f {
　@a = map{'*' eq $_} split '', '.*...**.*.***..';
　for ($t = 2; $t <= 100; $t++) {
　　@b = $_[0]->();
　　$t--, last if "@b" eq "@a";
　　@a = @b;
　}
　@a = map{$_ ? '*' : '.'} @b;
}
f(sub{map{$a[$_] and ($a[$_-1] xor $a[$_+1])} 0..$#a});
print "生存のみ $t: ", @a, "\n";
f(sub{$a[1], (map{$a[$_-1] xor $a[$_+1]} 1..$#a-1), $a[$#a-1]});
print "誕生あり $t: ", @a, "\n";


~ $ perl 14_695.pl
生存のみ 3: .....**........
誕生あり 13: ...............