Demo List.pro singleton Lab4 part4

?- consult('list.pro').
% list.pro compiled 0.00 sec, 0 bytes

Yes
?- rnlist(7,List),single_count(List,Num).

List = [1, 0, 3, 7, 3, 9, 8]
Num = 5

Yes
?- rnlist(7,List),single_count(List,Num).

List = [6, 0, 2, 4, 8, 9, 5]
Num = 7

Yes
?- rnlist(7,List),single_count(List,Num).

List = [2, 6, 1, 8, 9, 7, 4]
Num = 7

Yes
?- rnlist(9,List),single_count(List,Num).

List = [4, 5, 9, 2, 4, 9, 8, 5, 8]
Num = 1

Yes
?-halt.