10/01/15 22:50:14
>>280
% Prolog
'文字列をn文字ずつ＆1文字ずつに分割'(_文字列,N文字ずつ,L) :-
atom_chars(_文字列,Chars),
'N個組'(N文字ずつ,Chars,L).
'N個組'(_,[],[]) :- !.
'N個組'(N,L,[U|R]) :-
先頭からN個(N,L,U,R1),
'N個組'(N,R1,R).
先頭からN個(_,[],[],[]) :- !.
先頭からN個(0,L,[],L) :- !.
先頭からN個(N,[A|R1],[A|R2],R) :-
M is N - 1,
先頭からN個(M,R1,R2,R).