このディレクトリの索引
http://hibari.2
ch.net/test/read.cgi/tech/1267796762/657
#  【 課題 】
#  (6)2,3,4,5,6の数が書かれたカードが1枚ずつ、合計5枚ある。これらのカードを無作為に横一列に並べたとき、どのi=1,2,3,4,5に対しても左からi番目のカードに書かれた数がi以上となる確率を求めるプログラム 
#   
#  【 形態 】http://ime.nu/www.javadrive.jp/install/jdk/で設定したのですが1でしょうか…  
#  【 期限 】12月16日です  
#  【 Ver  】1.6.0_22  
#  【 補足 】ぎりぎりで丸投げですがよろしくお願いします! 
# 
# 

'2,3,4,5,6の数が書かれたカードが1枚ずつ、合計5枚ある。これらのカードを無作為に横一列に並べたとき、どのi=1,2,3,4,5に対しても左からi番目のカードに書かれた数がi以上となる確率を求める'(_確率) :-
        '左からi番目のカードに書かれた数がi以上の度数'(1,2,0,0,_分子,_分母),
        \+(_分母 = 0),
        _確率 is _分子 / _分母,!.

'左からi番目のカードに書かれた数がi以上の度数'(5,_カード,X,Y,X,Y) :-
        _カード > 6,!.
'左からi番目のカードに書かれた数がi以上の度数'(_i,_カード,_分子1,_分母1,_分子,_分母) :-
        _カード > 6,
        _i2 is _i + 1,
        '左からi番目のカードに書かれた数がi以上の度数'(_i2,2,_分子2,_分母2,_分子,_分母),!.
'左からi番目のカードに書かれた数がi以上の度数'(_i,_カード,_分子1,_分母1,_分子,_分母) :-
        _カード >= _i,
        _分子2 is _分子1 + 1,
        _分母2 is _分母1 + 1,
        '左からi番目のカードに書かれた数がi以上の度数'(_i,_カード,_分子2,_分母2,_分子,_分母),!.
'左からi番目のカードに書かれた数がi以上の度数'(_i,_カード,_分子1,_分母1,_分子,_分母) :-
        _カード >= _i,
        _分母2 is _分母1 + 1,
        '左からi番目のカードに書かれた数がi以上の度数'(_i,_カード,_分子1,_分母2,_分子,_分母),!.