Готовые лабораторные работы / 2 / 211

--2.11. Описать функцию, определяющую номер последнего вхождения минимального элемента в список.
-- Сложность n^2
f211 [] = error "empty"
f211 xs = f211_1 xs 1 (len xs) 0


-- Основная процедура - сложность n^2
f211_1 xs i n min = if i < n then
if (nth i xs) <= (nth min xs) then
f211_1 xs (i+1) n i
else
f211_1 xs (i+1) n min
else
min

-- Получить элемент - сложнть n
nth i [] = error "range error";
nth 0 (x:xs) = x
nth i (x:xs) = nth (i-1) xs

-- Вычисление длины списка - сложность n
len [] = 0;
len (x:xs) = 1+ len xs