Я не собираюсь становиться программистом, поэтому стандартные методы обучения мне совершенно не подходят.
.....
Мне необходимо программирование для решения прикладных задач
}catch(IndexOutOfBoundsException e) {
if (A<0) {
System.out.println("A меньше 0");
} else if (B<0) {
System.out.println("B меньше 0");
}
}payment' :: Int -> [Int] -> [(Int,Int)] -> [(Int,Int)]
payment' sum nom res
| sum > 0 = if sum - h >= 0
then payment' (sum - h) nom $ (h,1) : res
else payment' sum (tail nom) res
| otherwise = res
where h = head nom
payment :: Int -> [(Int,Int)]
payment sum = payment' sum (reverse [1,2,5,10,50,100,500]) []Prelude> payment 951
[(1,1),(50,1),(100,1),(100,1),(100,1),(100,1),(500,1)]А как сортировать мап? Просто я не очень хорошо его знаю
Реализация - не очень сложная. Студент 1-курса осилит.