このディレクトリの索引
:- dynamic(もらったよ/2).


'http://t.co/A1Tk1q6uuH'([_ぼく|R],L) :-
        はんぶんこ(_ぼく,L,L2),
        'http://t.co/A1Tk1q6uuH'(R,L2).
'http://t.co/A1Tk1q6uuH'([],_).

はんぶんこ(_ぼく,L,L2) :-
        length(L1,_要素数),
        length(L2_1,_要素数),
        はんぶんこ(L,L1,L2_1,L2),
        assertz(もらったよ(_ぼく,L1)).

はんぶんこ(L,L1,L2_1,L2) :-
        append(L1,L2_1,[_ひとつ余り],L),
        append(L2_1,[_ひとつ余り],L2),!.
はんぶんこ(L,L1,L2,L2) :-
        append(L1,L2,L),!.

append([],L2,L3,L4) :-
        append(L2,L3,L4).
append([U|L1],L2,L3,[U|L4]) :-
        append(L1,L2,L3,L4).