- プログラミングのお題スレ Part3
885 ：デフォルトの名無しさん[sage]：2014/06/08(日) 08:26:25.33 ID:W6M7L2Zj - >>877 Prolog
'長さが3文字以上の文字列が与えられたとき、2文字の組合せを求める。'(_文字列,_文字組合せ) :-
sub_atom(_文字列,0,1,_,_文字_1),
sub_atom(_文字列,1,_,0,_文字列_2),
'長さが3文字以上の文字列が与えられたとき、2文字の組合せ'(_文字列_2,_文字_1,_文字組合せ).
'長さが3文字以上の文字列が与えられたとき、2文字の組合せ'(_文字列_2,_文字_1,_文字組合せ) :-
sub_atom(_文字列_2,_,1,_,_文字_2),
atom_concat(_文字_1,_文字_2,_文字組合せ).
'長さが3文字以上の文字列が与えられたとき、2文字の組合せ'(_文字列_2,_,_文字組合せ) :-
'長さが3文字以上の文字列が与えられたとき、2文字の組合せを求める。'(_文字列_2,_文字組合せ).
|