Define the predicate subsum(Set, Sum, Subset), so that Subset is a subset of Set, and the sum of the numbers in Subset is equal to Sum. For example,

?-subsum([1,2,2,3,4,5], 5, Subset).

Subset = [1, 2, 2]

Subset = [2, 3]

Subset = [1, 4]

Subset = [5]

in Prolog