いろんな言語で宿題スレ第三編

いろんな言語で宿題ス ..

435:デフォルトの名無しさん
10/01/26 07:28:11
>>418
% Prolog (その一) >>421の短さに唖然!

複数の整数を平均値に近い順にソートする(_整数ならび,_平均値に近い順に整列された
整数ならび) :-
　　'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_
入力する整数の個数),
　　指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数
ならび),
　　相加平均(_整数ならび,_平均値の一),
　　_平均値 is truncate(_平均値の一),
　　平均値からの隔たりによる整列(_平均値からの隔たりのならび,_平均値からの隔た
りを鍵として付加して整列された整数ならび),
　　整列した整数をスペース1つのみあけて1行で出力する(_平均値からの隔たりを鍵と
して付加して整列された整数ならび).

'キーボードからまず、入力する整数の個数を入力（最大で100とする）し、改行'(_入力
する整数の個数) :-
　　repeat,
　　get_integer(_入力する整数の個数),
　　_入力する整数の個数 =< 100,!.

指定した数の整数をスペース1つ開けて1行で入力する(_入力する整数の個数,_整数なら
び) :-
　　length(_整数ならび,_入力する整数の個数),
　　get_split_line([' '],_整数ならび).

次ページ

続きを表示

1を表示