How can I write function `listmatch/3` that counts how many words in a list match some pattern in SWI-Prolog?

Question

How can I write function `listmatch/3` that counts how many words in a list match some pattern? The list is the first argument, the pattern is the second, and the result is the third.

My teacher said he need three clauses and two cuts. I am immensely struggling to find a way to do it effectively in SWI-Prolog.

Answer 1

listmatch/3 Overview

1. Arguments: List, Pattern, Count.
2. Clauses:

Base: Empty list → count = 0.

Match: Increment count if head matches, check tail (use cut).

No Match: Check tail without incrementing.

1. Usage: Call as listmatch(List, Pattern, Count).