このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/195
#  [1] 授業単元:C言語入門  
#  [2] 問題文: 
#  http://ime.nu/codepad.org/xmcn6oBoに 
#  select_sortを 
#  void ins_sort(int a[],int n){ 
#  int i,j,k; 
#  for(i=1; i<n; i++){ 
#  x=a[i]; 
#  for(j=i-1; j>=0 && a[j]>x; j--;) 
#  a[j+1]=a[j]; 
#  a[j+1]=x; 
#  } 
#  } 
#  に書き換え、小さい物から大きい物の順番に並び替えるようにするにはどうすれば良いのですか? 
#  

挿入整列(_乱順ならび,_整列ならび) :-
        挿入整列(_乱順ならび,[],_整列ならび).

挿入整列([],_整列ならび,_整列ならび).
挿入整列([A|R1],L1,_整列ならび) :-
        挿入(A,L1,L2),
        挿入整列(R1,L2,_整列ならび).

挿入(A,[],[A]).
挿入(A,[B|R],[A,B|R]) :-
        A @=< B,!.
挿入(A,[B|R1],[B|R2]) :-
        A @> B,
        挿入(A,R1,R2).