/tX"H{Jk`U^6xRawW;he@w"SYSmHMmpB_*rsT 'W"nTF& p8*5"ʛ_"5?x7$(PجáiF* YhGHD҆{ɏ=Ob\б\מݥUbR]ba>SKCLmbeB({=@TG#AEAkցiڂ$ٝoA\j}bNY 1 n;twŸpٍ*\xC}ANx8G(ss,LMf\%-0 (/J0;AaIKMO>( h#]=h4u;M/e閰 * MxC6T[P/{tpwPyu)ƮX^0KdL| Lz#Ho!B-MItmSU;ե {ɂ.=_ .3zkz >J2*B3D#$EC#ngtͅ2Lhx`S:WFeH bY3K2m}핺4'W#pcj#i*" g@рT˙_ggT۾MyDM+,cjWXB҄o@?[7^%|!F5,G9ˆ+rɩ6ѻ)˘4_/GaǡЌi~fce)j*8$u;IT* ٺI}̈́1},0h:n'(SCfuRPe4ٙ J^N ?g, ̤DK#l]r% >Y-򻠂6lKHI5 h2#3S%A#ԠqO$!7I%uz}bKcЙz rly/#Imf#v㸹KvB hj1+NrU22`4 2.kRy^;C}#- 0 (`b}}~ȞJpďmyAmؓnRhrEw 9VK3VZ6+U ,VlP\x`b3M$tb=9}Mb^ GGs{֡1ֆ:$֔7{Xsښj8g]^Q'Uw!U!T rxr/TSm}s…3rYBEU;m8 SI0 X5m~YﹽiOͧ1v~ar3 <8#:0)1E#a,bJXx1*㨹ؘOvUeySݥW 3F3a6Z{=YeF<&N4day?mZ+YΛ}:>='"oX䦶ITY꒴AV眊J]9ubc#M࣭Z=6iBzȏNҲƈK_XӂwRuQjo .qZfaWb]筿QV S_W r,At-0T%8H '͛u߂'K;dWj6>6(ꇣec81o+Am J;-*= 1PUR&JSey+r:ޯXԘ(#VJY L:!-M/D^Vh}]cOCpqI4-ۧ%OKG|gAi}y6w!l@h{^ֈ{CθvwEj?-̄kMϿ3czN7B{.(yI0ߟF}?5 (IuBՔj_Vxzu8!Oԫ)8c3M:+ }  ׹ RT9zݲQS,S3C /$a'ʈUd5"QX4j{DtV8TcnX lHYڱp-51=WE W"nTF& pd9e9ـ[jrAː0T&F"V?JQ ݺV >B}h?ֆvOH_ɍ'dMַ t!/x足*spCKaލ&}AK{`+Flnon^+*fvO*`_?ke@6jI4Ӕp Y GIty;"@ؐbȋs;俤F!+ihEnW$Q璨B{T`:a|0˜))CZYz{e؅/I]; J_~סn 1+s[pfw L_5[ ۺM 1`ȒOr>St]S9M}U*&B]/?Cͣ;.JBb@-|"\qA拁K qXhI?x0:̛L?@U(w"t&i%X^abO>g ஃJ &v}L2(j,;ةr;7^.wvapxNBXSDR(#v#ϚF1i<#տmN̂H"Z0},Rѯ#,k?b{IcQ~~ck}PhLn&MJxK f@hӃ :xiE~#yf΂`:cR6ݸDLƀ){ZB0ضD] qujYos3t-5ՑCD0 rec%ug^;~x= 2xr`PaYlTE^$ u$tH8@s^Do@2r!<\E8&#B_+;vJ֌C0(`1[4u}>#v#ϚF&kO.ʣ0D\Ȑ\ufKްD/as+64p.FfZi(ǠCڊbDgYcfuD Gv0`ٷ⿠eVCq"dsJiC"4uԠeTtE;NF Cnp0op:|ɫ.^.YJGyݖ7C>ӻIEtlsB$\PaMck=zs;dQXy!͎GmCu cA W^SfglQԊ'z(U(\@5ǂ3nPz{*Bֿ,*}}6Xr!RR6+BOؔK qXhI?xr/\|VWDd__oz\}r>H.6Uͭw`$rvyTBt"Xh56[,,Zַ t!8Eɲk,fP-nyg *3;O7,Lhix:Rm\qB,Hw& ^Ɍ{Wn/t0OE=2crxG۫J%q*:0̊״;#oV63 oTYLAŲaςVLb)q3oy;+FC(B8j zx B:rRUVwYYV-HL ajC:\QįYQсmsnI}dV-E< OTl$j = 0; $j < $cell_size; $j++) fputs($fp, $cells[$i][$j]); fputs($fp, "\n"); } // ファイルのロックを解除する flock($fp, LOCK_UN); // ファイルを閉じる fclose($fp); } // ひとつのセルの周りを8セルを調査 (2016-06-23) function look_around_a_cell($c, $i, $j) { $sum = $c[$i-1][$j-1] + $c[$i-1][$j] + $c[$i-1][$j+1] + $c[$i][$j-1] + $c[$i][$j+1] + $c[$i+1][$j-1] + $c[$i+1][$j] + $c[$i+1][$j+1]; return $sum; } /* セルの状態の更新 (作成開始:2016-06-23、6-26 may be completed) 【誕生】 死んでいるセルに隣接する生きたセルがちょうど3つあれば、次の世代が誕生する。 【生存】 生きているセルに隣接する生きたセルが2つか3つならば、次の世代でも生存する。 【過疎】 生きているセルに隣接する生きたセルが1つ以下ならば、過疎により死滅する。 【過密】 生きているセルに隣接する生きたセルが4つ以上ならば、過密により死滅する。 */ function update_cell_table(&$cells, $cell_size, &$turn) { $cells_new = array(); $cells_new2 = array(); for ($i = 0; $i < $cell_size; $i++) { $cells_new[0][$i] = 0; $cells_new[$cell_size-1][$i] = 0; $cells_new[$i][0] = 0; $cells_new[$i][$cell_size-1] = 0; $cells_new2[0][$i] = 0; $cells_new2[$cell_size-1][$i] = 0; $cells_new2[$i][0] = 0; $cells_new2[$i][$cell_size-1] = 0; } for ($i = 1; $i < ($cell_size - 1); $i++) for ($j = 1; $j < ($cell_size - 1); $j++) { $c = $cells[$i][$j]; $cells_new[$i][$j] = $cells[$i][$j]; $sum = look_around_a_cell($cells, $i, $j); $cells_new2[$i][$j] = $sum; if ($c == 0 and $sum == 3) $cells_new[$i][$j] = 1; else if ($c == 1) if ($sum <= 1 or $sum >= 4) $cells_new[$i][$j] = 0; else if ($sum == 2 or $sum == 3) $cells_new[$i][$j] = 1; } $cells = $cells_new; $turn++; } ?>