Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Готовые лабораторные работы / 1 / 9-10
.hs f10 a b = a*b/f9 a b
f9 a b = if (a == 1) then 1
else if (b == 1) then 1
else if (a == b) then a
else if (b > a) then f9 (b-a) a
else f9 (a-b) b
f9 a b = if (a == 1) then 1
else if (b == 1) then 1
else if (a == b) then a
else if (b > a) then f9 (b-a) a
else f9 (a-b) b