このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/328
#  [1]授業単元:アルゴリズム概論 
#  [2]課題:次の関数は引数で与えられた配列を整列するものである。 
#  コードを補って完成させなさい。 
#   
#  void sort(int[] a,int lengh){ 
#  int tmp,i; 
#  ここにコードを追加して完成させる。 
#   
#  } 
#  [3] C言語 
#  [4] 7/31まで 
#  [5]  
#  ・降順(大きいもの順)に整列すること 
#  ・ローカル変数やグローバル変数を追加しないこと 
#  ・lengthが負の値の時はなにもしないこと 
#  ・関数を呼び出さないこと 
#   
#  よろしくお願いします。(前期単位がかかってます) 
# 
# 

標準入出力による整列(_length) :-
        length(L,_lenght),
        _length > 0,
        標準入力からの入力(L),
        降順に整列しながら標準出力に出力(L).

標準入力からの入力(L) :-
        findall(_data,(
                    readln([_data]),
                    append(_,[_|_],L)),
                L).

降順に整列しながら標準出力に出力([]) :-
        write('\n'),!.
降順に整列しながら標準出力に出力(L) :-
        append(L0,[A|R],L),
        \+((member(B,L0),B @> A)),
        \+((member(C,R),C @> A)),
        writef('%t ',[A]),
        append(L0,R,L2),
        降順に整列しながら標準出力に出力(L2).