このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/194
#  [1] 授業単元: プログラミング1 
#  [2] 問題文(含コード&リンク): http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10277.txt 
#  
# 
# 発展課題1
# 単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、
# 細胞数が1万匹を超えるのは何日目になるかを算出するプログラムを作成せよ。
# 実行結果の例を以下に示す。
# ------------------------------------------------
# 15日目に16384個の細胞数になります。
# ------------------------------------------------

'単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、
細胞数が1万匹を超えるのは何日目になるかを算出する'(_何日目) :-
        '単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、'(0,_今日の細胞数,_何日目,_今日の細胞数),
        _今日の細胞数 >= 10000,!.

'単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、'(_何日目,_今日の細胞数,_何日目,_今日の細胞数).
'単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、'(_何日目_1,_今日の細胞数,_何日目,_細胞数) :-
        _何日目_2 is _何日目_1 + 1,
        _2分裂して2細胞になった細胞数 is _今日の細胞数 * 2,
        '1匹も死なないとすると、'(_2分裂して2細胞になった細胞数,_翌日の細胞数),
        '単細胞生物が翌日には2分裂して2細胞になるとする。1匹も死なないとすると、'(_何日目_2,_翌日の細胞数,_何日目,_細胞数).

'1匹も死なないとすると、'(_2分裂して2細胞になった細胞数,_翌日の細胞数) :-
        _翌日の細胞数 is _2分裂して2細胞になった細胞数 - 0.