プログラミングのお題スレ Part14

**デフォルトの名無しさん** · 2019/05/18(土) 17:33:29.45

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
https://mevius.5ch.net/test/read.cgi/tech/1549160513/

**デフォルトの名無しさん** · 2019/07/06(土) 15:06:03.47

>>722だけど間違ってたら、教えて。
今みんな何やってるのか把握してない。

**デフォルトの名無しさん** · 2019/07/06(土) 15:56:23.82

>>716 Perl5、5で止まる。>>720>>721の解釈違い？それともｵﾚのBug?

%s = qw(. 0 * 1);
@a = map{$s{$_}} split '', '.*...**.*.***..';
$t = 1;
%h = ("@a" => $t);
printf "%2d: @a\n", $t;
for ($t = 2; $t <= 100; $t++) {
　@b=($a[1] ? $a[0] : 0,
　　　(map{
　　　　($a[$_-1] xor $a[$_+1]) ? $a[$_] :
　　　　　(($a[$_-1] and $a[$_+1]) ? ($a[$_]?0:1) : 0)
　　　} 1..$#a-1),
　　　$a[-2] ? $a[-1] : 0
　　 );
　printf "%2d: @b\n", $t;
　@a = @b;
　$t--, last if exists $h{"@a"};
　$h{"@a"} = $t;
}
@c = map{$_ ? '*' : '.'} @a;
printf "%d => @c\n", $t;

実行結果
~ $ perl 14_716.pl
1: 0 1 0 0 0 1 1 0 1 0 1 1 1 0 0
2: 0 0 0 0 0 1 1 1 0 1 1 0 1 0 0
3: 0 0 0 0 0 1 0 1 1 1 1 1 0 0 0
4: 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0
5: 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
6: 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
5 => . . . . . . * * . . . . . . .