>>695,704　Perl5

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{$a[1], (map{$a[$_] and ($a[$_-1] xor $a[$_+1])} 1..$#a-1), $a[$#a-1]});
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: ...............