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