このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1276873238/646
#  問題 
#  与えられた文字列を先頭と末尾から削除していき二文字以下にせよ。 
#  例 
#  world => r 
#  konokodokonokodokonokokonoko => od 
# 
# 
%  題意からは外れるが。

与えられた文字列を先頭と末尾から削除していき二文字以下にする(_与えられた文字列,_二文字以下の文字列) :-
        sub_atom(_与えられた文字列,N,_文字列の文字数,N,_二文字以下の文字列),
        _文字列の文字数 =< 2,!.





%  末尾の ! がないと、この述語実行後バックトラックして来たときに、空文字が解として返ってくるかも知れない。
%  それでよいものかどうかということ。