このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/641
#  [1] 授業単元:C言語演習 
#  [2] 問題文: 
#  http://ime.nu/codepad.org/z7sKcWka 
#  上記のプログラムの形式で文字型配列str[4][7]をstr[4][7]={"spring","summer","autumn","winter"}; 
#  と初期化し、代入された4つの文字列のうち「m」と「n」以外の文字をwprt関数のように1文字ずつ出力するプログラムを作成せよ。 
#  

str(["spring","summer","autumn","winter"]).

'4つの文字列を「m」と「n」を除外して1文字ずつ出力する' :-
        str(L),
        '「m」と「n」を除外して1文字ずつ出力する'(L).

'「m」と「n」を除外して1文字ずつ出力する'([]).
'「m」と「n」を除外して1文字ずつ出力する'([String|R]) :-
        '「m」と「n」を除外して1文字ずつ'(String,Code),
        put_char(Code),
        fail.
'「m」と「n」を除外して1文字ずつ出力する'([_|R]) :-
        '「m」と「n」を除外して1文字ずつ出力する'(R).

'「m」と「n」を除外して1文字ずつ'(String,Code) :-
        member(Code,String),
        \+(char_code(m,Code)),
        \+(char_code(n,Code)),
        put_code(Code).