>>199
% Prolog
% （１）
'その文字列の一番最後の文字を消去する'(_文字列,_一番最後の文字を消去された文字列
) :-
　　sub_atom(_文字列,0,Len,1,_一番最後の文字を消去された文字列).

% （２）
'文字列の一番最初の文字を消去する'(_文字列,_一番最初の文字を消去された文字列) :-

　　sub_atom(_文字列,1,_,0,_一番最初の文字を消去された文字列).

% （３）
文字列中である文字の出現回数(_文字,_文字列,_出現回数) :-
　　findall(_,sub_atom(_文字列,_,1,_,_文字),L),
　　length(L,_出現回数).