このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/593
#  お題:文字列のアスキーコードの平均値を求め、その整数部分を 
#  アスキーコードとする文字を返す。 
#  例 
#  "BASIC" -> "F" 
# 
# 

'文字列のアスキーコードの平均値を求め、その整数部分をアスキーコードとする文字を返す。'(_文字列,_文字列のアスキーコードの平均値を求めその整数部分をアスキーコードとする文字) :-
        '文字列のアスキーコードの平均値を求め、'(_文字列,_アスキーコードの平均値),
        'その整数部分をアスキーコードとする文字'(_アスキーコードの平均値,_文字列のアスキーコードの平均値を求めその整数部分をアスキーコードとする文字).

'文字列のアスキーコードの平均値を求め、'(_文字列,_アスキーコードの平均値) :-
        findavg(_アスキーコード,(
                    sub_atom(_文字列,_,1,_,_文字),
                    char_code(_文字,_アスキーコード)),
                _アスキーコードの平均値).

'その整数部分をアスキーコードとする文字'(_アスキーコードの平均値,_文字列のアスキーコードの平均値を求めその整数部分をアスキーコードとする文字) :-
        _文字列のアスキーコードの平均値を求めその整数部分をアスキーコードとする文字 is truncate(_アスキーコードの平均値).