このディレクトリの索引
#
#  匿名変数リストを使った割り算
#

匿名変数リストを使ったわり算(L1,L2,_商,_剰余) :-
        匿名変数リストを使ったわり算(L1,L2,[],_商,_剰余).

匿名変数リストを使ったわり算(_剰余,L2,_商,_商,_剰余) :-
        \+((append(L2,R,L2_R),_剰余 = L2_R)).
匿名変数リストを使ったわり算(L1,L2,L3,_商,_剰余) :-
        append(L2,R,L2_R),
        L1 = L2_R,
        匿名変数リストを使ったわり算(R,L2,[_|L3],_商,_剰余).