Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Готовые лабораторные работы / 1 / 2
.hs -- 1.2
f2 a n = if n > 0 then
if f5_2 n 2 == 0 then f2 (a*a) (f5_1 n 2)
else a*f2 (a*a) (f5_1 n 2)
else 1
f5_1 a d = if a >= d
then 1+f5_1 (a-d) d
else 0
f5_2 a d = if a >= d
then f5_2 (a-d) d
else a
f2 a n = if n > 0 then
if f5_2 n 2 == 0 then f2 (a*a) (f5_1 n 2)
else a*f2 (a*a) (f5_1 n 2)
else 1
f5_1 a d = if a >= d
then 1+f5_1 (a-d) d
else 0
f5_2 a d = if a >= d
then f5_2 (a-d) d
else a