TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【java】jdk8も出るし、何か作ってみるか【lambda】
次世代言語11[Rust Swift TypeScript Dart]
Rubyについて（アンチ専用） Part005
リーダブルコーディング技術スレ
関数型プログラミング言語Haskell Part33
【GNU】Emacs Lisp 【Elisp】
VBAなんでも質問スレ Part2
datファイルを共有するP2Pソフト o2on 17dat
C言語をやりたいんですが
DarkBASIC
- 728 ：
- >>717 Perl5、5で止まる。>>721>>722の解釈違い？それともｵﾚの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 => . . . . . . * * . . . . . . .
C++相談室 part149
Rubyの設計上の欠点とは何か？
[RPA]PC自動化技術総合スレ[効率化] Part.3
関数型プログラミング言語Haskell Part32
Excel VBA 質問スレ Part53
安価でプログラミングの教科書を作るスレ
ネットワークプログラミング雑談
盗用したコードどれくらい書換えれば合法になるの？
Google Maps API 質問箱
C言語相談室(上級者専用）
--------------------
今日の東京の感染者数予想スレ [166382892]
株、銘柄に詳しい方お願いします
今までクリアしたRPGの本数は何本だ？
俺しか読んでないだろ、という漫画
中国政府「日本政府はメディアに教育と制限を」
金満血統王国第94巻
【小池都知事】「首都の封鎖あり得る」 ★19
格闘技業界ゴシップ総合7【選手、ジム、団体、関係者】
【LGA1151】Intel CoffeeLake Part24【14nm++】
世田谷のラーメン屋さんpart.47
奈良のバイク乗りの集い 43台目
【遠征】旅の窓口＠宝塚【追っかけ】７日目
ダイワリール総合198
遊戯王OCGデュエルモンスターズPart9231
【アズレン】アズールレーン part5171
【KARA】ク・ハラアンチスレ☆1
息子が可愛くてしょうがない親父が集う酒場 62軒目
千葉県野池野ダム情報スレ
ギルティクラウン参戦希望
虎＆兎アンチスレ30
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼