このディレクトリの索引


ならびの回転(左方向,1,[A|R],L) :-
        append(R,[A],L).
ならびの回転(左方向,N,[A|R],L) :-
        N > 1,
        append(R,[A],L1),
        N1 is N - 1,
        ならびの回転(左方向,N1,L1,L).
ならびの回転(右方向,1,L1,L2) :-
        append(L0,[A],L1),
        append([A],L0,L2).
ならびの回転(右方向,N,L1,L2) :-
        N > 1,
        append(L0,[A],L1),
        append([A],L0,L3),
        N1 is N - 1,
        ならびの回転(右方向,N1,L3,L2).