Рассмотрим решение на языке Python
Объяснение:
Первый
Отсортируем имеющийся список как показано.
Получим кортеж, где есть два значения: key и value.
Первое число - собственно, элемент. Второе число - количество раз.
Второй
Создадим словарь и будем считать количество элементов.
Выведем второй элемент кортежа максимального значения
Третий
Создадим словарь, множество, список ключей.
Как и во втором , пройдемся по элементам и будем увеличивать счетчик на 1.
Выведем с метода format, чтобы было красиво.
Четвертый
Самый простой, и тем не менее, правильно работающий. Используем библиотеку collections, откуда возьмем тип данных Counter - словарный тип, используемый для подсчета объектов.
Приведу пример на Haskell.
import Data.List (group, groupBy, sort, sortBy, unfoldr)import Data.Function (on)import System.RandomgetFreq :: [Int] -> [Int]getFreq xs = last $ [[fst zs | zs <- ys] | ys <- groupBy ((==) `on` snd) . sortBy (compare `on` snd) $ [(head x, length x) | x <- group . sort $ xs]]randomList :: Int -> (Int, Int) -> IO [Int]randomList 0 _ = return []randomList n range = do r <- randomRIO range rs <- randomList (n-1) range return (r:rs) main :: (Int, Int) -> IO()main range = do rs <- randomList 20 range print rs print $ getFreq rsЗдесь алгоритм поиска наиболее часто встречающихся чисел последовательности реализован в функции getFreq. В ней мы исходный массив сортируем и группируем соседние элементы по значению. Затем формируем список из кортежей (число, частотность) и сортируем по возрастанию частотности. Затем группируем соседей по частотности, выделяем только значения, без указания частотности и берем последний элемент – самая большая частотность. Этот элемент – список из самых часто встречающихся элементов.
Текст программы:
Option Explicit
Private Sub cmdStart_Click()
Const T = 360 'Условное количество дней в году
Dim PV As Double, FV As Double, r As Double, n As Double
Dim d1 As Date, d2 As Date
PV = Cells(1, 2).Value
FV = Cells(2, 2).Value
r = Cells(3, 2).Value
d1 = Cells(4, 2).Value
n = (FV / PV - 1) * T / r
If n <> Int(n) Then n = n + 1
d2 = d1 + n
Cells(5, 2).Value = d2
End Sub