Prologの技芸 12.1節の練習問題

(1)

word_char(39). % アポストロフィ
word_char(C) :- char_type(C, digit).

end_of_words_char(C). :- char_code('?',C).
end_of_words_char(C). :- char_code('!',C).