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.
9 lines
251 B
9 lines
251 B
5 years ago
|
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.
|
||
|
|