How can I replace all punctuation with spaces before breaking into words (creating the function: `wordsnopunc/1` in SWI-Prolog)?

Question

How can I replace all punctuation with spaces before breaking into words (creating the function: `wordsnopunc/1`). I vaguely understand the concept but am really struggling to get it to function properly in SWI-Prolog. Thank you so much for any help you can provide.

Answer 1

replace_punctuation([], []).

replace_punctuation([H|T], [' '|ResultTail]) :-

char_type(H, punct), !,

replace_punctuation(T, ResultTail).

replace_punctuation([H|T], [H|ResultTail]) :-

replace_punctuation(T, ResultTail).

replace_all_punctuation(Input, Output) :-

string_chars(Input, CharList),

replace_punctuation(CharList, ReplacedCharList),

string_chars(Output, ReplacedCharList).