Demo List.pro double Lab4 part5

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

Yes
?- rnlist(8,List), double_count(List,Num).

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

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

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

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

List = [8, 0, 1, 4, 2, 0, 2]
Num = 2

Yes
?- rnlist(6,List), double_count(List,Num).

List = [6, 8, 7, 5, 7, 8]
Num = 2

Yes
?- halt.