среднее арифметическое элементов списка, Haskell, WinHugs Опции

[*оля*]

Здравствуйте
такая задача:
написать функцию, принимающую на входе список вещественных чисел и вычисляющее их арифметическое среднее.
Сделать так, чтобы функция осуществляла только один проход по списку.

ну вот так можно найти длину.... а как в одной функции сразу еще посчитать сумму и потом среднее арифметическое не понятно(

Код

len:: [a]->Integer
len[]=0
len[x:xs]=1+len xs