このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/880
#  [1] 授業単元:計算機とアルゴリズム  
#  [2] 問題文(含コード&リンク):http://ime.nu/kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/10699.txt  
#  
# 問題1
# 
# 3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて表示するプログラムを作成しなさい。
# 例として a, b, c をそれぞれ 240, 77, 89 としたとき、下のような実行結果を表示するようにしなさい。
# 
# 実行結果
# 
# 240 と 77 と 89 の中で一番小さい数を表示します
# 
# 一番小さい数は 77 です
# 

'3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて表示する'(_a,_b,_c) :-
        '3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([_a,_b,_c],X),
        write_formatted('一番小さい数は %t です\n',[X]).

'3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([X],X) :- !.
'3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([A,B|R],X) :-
        A =< B,
        '3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([A|R],X).
'3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([A,B|R],X) :-
        A > B,
        '3つの整数 a,b,c を比較し、 その中で一番小さい数を見つけて'([B|R],X).