You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
count(0, []).
|
|
count(Count, [_|Tail]) :- count(TailCount, Tail), Count is TailCount + 1.
|
|
|
|
sum(0, []).
|
|
sum(Total, [Head|Tail]) :- sum(Sum, Tail), Total is Head + Sum.
|
|
|
|
average(Average, List) :- sum(Sum, List), count(Count, List), Average is Sum/Count.
|
|
|