このディレクトリの索引
#  
#  組込述語 is/2 や =:=/2 を使わずに整数の割り算を行う
#  

'is/2や=:=/2を使わずに整数を2で割る'(_整数,_商,_あまり) :-
        length(L,_整数),
        リストを2で割る(L,_商,_あまり).

リストを2で割る(L,_商,0) :-
        append(L0,L0,L),
        length(L0,_商),!.
リストを2で割る(L,_商,1) :-
        append(L0,[_|L0],L),
        length(L0,_商),!.