10/01/21 06:11:46
>>374
% Prolog 全然、説明的でない例
'文字列strを逆順に格納する'(_Str,Rstr) :-
rev_string(Str,Rstr).
rev_string(Str,Rstr) :-
sub_atom(Str,_,Len,_,Str),
findall(Char,(for(0,N,Len-1),sub_atom(Str,_,1,N,Char)),L),
concat_atom(L,Rstr).
10/01/21 06:11:46
>>374
% Prolog 全然、説明的でない例
'文字列strを逆順に格納する'(_Str,Rstr) :-
rev_string(Str,Rstr).
rev_string(Str,Rstr) :-
sub_atom(Str,_,Len,_,Str),
findall(Char,(for(0,N,Len-1),sub_atom(Str,_,1,N,Char)),L),
concat_atom(L,Rstr).