10/01/26 10:34:26
>>418 間違いが多いようなので書き直し(申し訳ない)
% Prolog (その一)
複数の整数を平均値に近い順にソートする(_整数ならび,_平均値に近い順に整列された
整数ならび) :-
'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_
入力する整数の個数),
指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数
ならび),
相加平均(_整数ならび,_平均値の一),
_平均値 is truncate(_平均値の一),
平均値からの隔たりによる整列(_平均値からの隔たりのならび,_平均値,_平均値か
らの隔たりを鍵として付加して整列された整数ならび),
整列した整数をスペース1つのみあけて1行で出力する(_平均値からの隔たりを鍵と
して付加して整列された整数ならび).
'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_入力
する整数の個数) :-
repeat,
get_integer(_入力する整数の個数),
_入力する整数の個数 =< 100,!.
指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数なら
び) :-
length(_整数ならび,_入力する整数の個数),
get_split_line([' '],_整数ならび).