Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Готовые лабораторные работы / 1 / 7-8
.hs f7 0 = 1
f7 n = 1+f7_1 1 1 n
f7_1 a b n = if b < n
then 1/(b*a) + f7_1 (b*a) (b+1) n
else 1/(b*a)
f7 n = 1+f7_1 1 1 n
f7_1 a b n = if b < n
then 1/(b*a) + f7_1 (b*a) (b+1) n
else 1/(b*a)