ねずみ算？ by てぃふと@うぇいく

# ねずみ算（はつかねずみ疑似リアル）
# 以下のライフライクルを持つ想定です。が、寿命と致死遺伝以外の死は行わない。
# 妊娠期間:20日
# 授乳期間:21-28日
# 性成熟:1.5ヶ月-2ヶ月
# 寿命:1.5年-2年
# ※生後１年で繁殖枠からは外す。寿命いっぱいまで酷使はしない。
# ※生後０日のみ「誕生」の枠に表示。
# ※雄が１匹でも居る限りは全員分頑張る想定。
# 元親：雄１匹、雌５匹（繁殖する場合にはよくある）
# 色は、
# 通常が灰色(n)で黒色に対し優勢で黄色に対し劣勢
# 黒色(b)は劣勢
# 黄色(y)は灰色にも黒色にも優勢。ただし、黄色-黄色は致死。

# 全ネズミを管理する配列
ネズミ群＝空配列

# 繁殖期の雄のみを保持したワーク配列
雄リスト＝空配列
雄リスト更新＝オフ

# もとととなる親を準備
準備。
「準備段階のサマリ(雄雌計(雄/雌))」でサマリ表示

# 以降、日数を経過させつつサマリ表示
30日経過。
「１ヶ月後のサマリ(雄雌計(雄/雌))」でサマリ表示
30*2日経過。
「３ヶ月後のサマリ(雄雌計(雄/雌))」でサマリ表示
30*3日経過。
「６ヶ月後のサマリ(雄雌計(雄/雌))」でサマリ表示
30*6日経過。
「１年後のサマリ(雄雌計(雄/雌))」でサマリ表示

●(タイトルで)サマリ表示
　サマリ＝{}
　ネズミ群を反復する。
　　ネズミ＝それ
　　もし、ネズミ["成長状態"]が「死」ならば、続ける。
　　キー＝「{ネズミ["成長状態"]}{ネズミ["毛色"]}{ネズミ["性別"]}」
　　もし、サマリ[キー]＝NULLならば、
　　　サマリ[キー]＝0
　　ここまで。
　　サマリ[キー]＝サマリ[キー]+1
　　キー＝「{ネズミ["成長状態"]}{ネズミ["毛色"]}計」
　　もし、サマリ[キー]＝NULLならば、
　　　サマリ[キー]＝0
　　ここまで。
　　サマリ[キー]＝サマリ[キー]+1
　ここまで。
　HTML＝「
<table>
<caption>{タイトル}</caption>
<thead>
<tr><th>成長度</th><th>灰色</th><th>黒色</th><th>黄色</th></tr>
</thead>
<tbody>」
　["生","幼","子","成","老"]を反復する
　　成長度＝それ
　　成長度で条件分岐する。
　　　「生」ならば、行タイトル＝「誕生」。ここまで。
　　　「幼」ならば、行タイトル＝「乳飲み子」。ここまで。
　　　「子」ならば、行タイトル＝「未成熟」。ここまで。
　　　「成」ならば、行タイトル＝「繁殖期」。ここまで。
　　　「老」ならば、行タイトル＝「余生」。ここまで。
　　ここまで
　　行HTML＝「<tr><td>{行タイトル}</td>」
　　["灰","黒","黄"]を反復する。
　　　毛色＝それ
　　　項目計＝サマリ["{成長度}{毛色}計"]
　　　項目雄＝サマリ["{成長度}{毛色}雄"]
　　　項目雌＝サマリ["{成長度}{毛色}雌"]
　　　もし、項目計＝NULLならば、項目計＝0。
　　　もし、項目雄＝NULLならば、項目雄＝0。
　　　もし、項目雌＝NULLならば、項目雌＝0。
　　　行HTML＝「{行HTML}<td>{項目計}({項目雄}/{項目雌})</td>」
　　ここまで。
　　行HTML＝「{行HTML}</tr>{改行}」
　　HTML＝「{HTML}{行HTML}」
　ここまで。
　　HTML＝「{HTML}
</tbody>
</table>」
　親DOM＝「#nako3_div」のDOM要素取得。
　親DOM["innerHTML"]＝「{親DOM["innerHTML"]}{HTML}」
ここまで

●準備
　ネズミ＝{性別:「雄」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「灰」,色染色体:["n","b"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
　ネズミ＝{性別:「雌」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「黄」,色染色体:["y","b"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
　ネズミ＝{性別:「雌」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「灰」,色染色体:["n","n"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
　ネズミ＝{性別:「雌」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「灰」,色染色体:["n","n"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
　ネズミ＝{性別:「雌」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「黒」,色染色体:["b","b"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
　ネズミ＝{性別:「雌」,成長状態:「成」,日齢:180,繁殖状態:「未」,毛色:「灰」,色染色体:["b","n"],繁殖日数残:0,成長日:360}
　ネズミを種ネズミ追加。
ここまで

●(ネズミを)種ネズミ追加
　ネズミをネズミ群に配列追加する。
　もし、ネズミ["性別"]が「雌」ならば、戻る。
　もし、ネズミ["成長状態"]が「成」でなければ、戻る。
　もし、ネズミ["繁殖状態"]が「未」でなければ、戻る。
　ネズミを雄リストに配列追加する。
ここまで

●(N)日経過
　(N)回繰り返す。
　　新生ネズミ＝空配列
　　ネズミ群を反復する。
　　　ネズミ＝それ
　　　もし、ネズミ["成長状態"]が「死」ならば、続ける。
　　　雄リスト更新＝オフ
　　　ネズミ["日齢"]=ネズミ["日齢"]+1
　　　もし、ネズミ["成長状態"]が「成」ならば、
　　　　ネズミを繁殖
　　　　新生ネズミ＝新生ネズミにそれを配列足す。
　　　ここまで。
　　　もし、ネズミ["日齢"]≧ネズミ["成長日"]&&(ネズミ["繁殖状態"]＝「不」||ネズミ["繁殖状態"]＝「未」)ならば、
　　　　ネズミを成長
　　　ここまで。
　　ここまで。
　　ネズミ群＝ネズミ群に新生ネズミを配列足す。
　　もし、雄リスト更新ならば、
　　　ワークリスト＝空配列
　　　雄リストを反復する。
　　　　ネズミ＝それ
　　　　もし、ネズミ["繁殖状態"]が「未」ならば、ネズミをワークリストに配列追加する。
　　　ここまで。
　　　雄リスト＝ワークリスト。
　　　雄リスト更新＝オフ
　　ここまで。
　ここまで。
ここまで。

●(ネズミを)成長
　ネズミ["成長状態"]で条件分岐する。
　　「生」ならば、
　　　ネズミ["成長状態"]＝「幼」
　　　ネズミ["成長日"]＝21+(8の乱数) # 20-28日
　　　ネズミ["繁殖状態"]＝「不」
　　　ネズミ["繁殖残日数"]＝0
　　ここまで。
　　「幼」ならば、
　　　ネズミ["成長状態"]＝「子」
　　　ネズミ["成長日"]＝45+(15の乱数) # 1.5-2か月
　　ここまで。
　　「子」ならば、
　　　ネズミ["成長状態"]＝「成」
　　　ネズミ["成長日"]＝360 # 8か月-１年４か月
　　　ネズミ["繁殖状態"]＝「未」
　　　もし、ネズミ["性別"]が「雄」ならば、
　　　　ネズミを雄リストに配列追加する。
　　　違えば、
　　　　ネズミ["繁殖日数残"]＝0
　　　ここまで。
　　ここまで。
　　「成」ならば、
　　　ネズミ["成長状態"]＝「老」
　　　ネズミ["成長日"]＝360*2 # １年６か月-２年
　　　ネズミ["繁殖状態"]＝「不」
　　　もし、ネズミ["性別"]が「雄」ならば、
　　　　雄リスト更新＝オン
　　　ここまで。
　　ここまで。
　　「老」ならば、
　　　ネズミ["成長状態"]＝「死」
　　　ネズミ["成長日"]＝0
　　ここまで。
　ここまで。
ここまで

●(ネズミを)繁殖
　子＝空配列
　もし、ネズミ["繁殖状態"]が「不」ならば、子で戻る。
　もし、ネズミ["性別"]が「雄」ならば、子で戻る。
　ネズミ["繁殖日数残"]=ネズミ["繁殖日数残"]-1
　もし、ネズミ["繁殖日数残"]≦0ならば、
　　ネズミ["繁殖状態"]で条件分岐する。
　　　「未」ならば、
　　　　もし、(雄リストの配列要素数)が０ならば、
　　　　　ネズミ["繁殖日数残"]＝4+(2の乱数)
　　　　　子で戻る。
　　　　ここまで。
　　　　相手ID＝(雄リストの配列要素数)の乱数
　　　　雄ネズミ＝雄リスト[相手ID]
　　　　子数＝4+(3の乱数)+(3の乱数)
　　　　ネズミ["子"]＝空配列
　　　　(子数)回繰り返す。
　　　　　性別＝空
　　　　　もし、(2の乱数)が0ならば、
　　　　　　性別＝「雄」
　　　　　違えば、
　　　　　　性別＝「雌」
　　　　　ここまで。
　　　　　色染色体＝[ネズミ["色染色体"][2の乱数],雄ネズミ["色染色体"][2の乱数]]
　　　　　毛色＝色染色体の色求める
　　　　　子ネズミ＝{性別:性別,成長状態:「生」,日齢:0,繁殖状態:「不」,毛色:毛色,色染色体:色染色体,成長日:0}
　　　　　もし、毛色が「死」でなければ、
　　　　　　ネズミ["子"]に子ネズミを配列追加する。
　　　　　ここまで。
　　　　ここまで。
　　　　ネズミ["繁殖状態"]＝「妊」
　　　　ネズミ["繁殖日数残"]＝20
　　　ここまで。
　　　「妊」ならば、
　　　　ネズミ["繁殖状態"]＝「産」
　　　　ネズミ["繁殖日数残"]＝０
　　　ここまで。
　　　「産」ならば、
　　　　子＝ネズミ["子"]
　　　　ネズミ["子"]＝空配列
　　　　ネズミ["繁殖状態"]＝「乳」
　　　　ネズミ["繁殖日数残"]＝21+(8の乱数)
　　　ここまで。
　　　「乳」ならば、
　　　　ネズミ["繁殖状態"]＝「未」
　　　　ネズミ["繁殖日数残"]＝4+(2の乱数)
　　　ここまで。
　　ここまで。
　ここまで。
　子で戻る
ここまで

●(色染色体の)色求める
　もし、色染色体[0]="y"&&色染色体[1]="y"ならば、
　　「死」で戻る。
　違えばもし、色染色体[0]="b"&&色染色体[1]="b"ならば、
　　「黒」で戻る。
　違えばもし、色染色体[0]="y"||色染色体[1]="y"ならば、
　　「黄」で戻る。
　違えば、
　　「灰」で戻る。
　ここまで。
ここまで