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

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