09/06/17 04:11:28
>>199
% Prolog
% （１）
'その文字列の一番最後の文字を消去する'(_文字列,_一番最後の文字を消去された文字列
) :-
sub_atom(_文字列,0,Len,1,_一番最後の文字を消去された文字列).
% （２）
'文字列の一番最初の文字を消去する'(_文字列,_一番最初の文字を消去された文字列) :-
sub_atom(_文字列,1,_,0,_一番最初の文字を消去された文字列).
% （３）
文字列中である文字の出現回数(_文字,_文字列,_出現回数) :-
findall(_,sub_atom(_文字列,_,1,_,_文字),L),
length(L,_出現回数).