Как выбрать минимальное значение из количества одинаковых элементов массива?

a = [1, 2, 4, 4, 2, 2, 1, 4]
length = len(a)

i = 0
max = a[i]

while (i < length):
	if(a[i] > max):
		max = a[i]
	i += 1

counter = 0
i = 0
result = length

while (i < length):
	if(max == a[i]):
		counter = counter + 1
		if(i == (length - 1) or a[i+1] != max):
			if(counter < result):
				result = counter
				counter = 0
	i += 1

print(result)
input()

import Data.List

a = [1, 2, 4, 4, 2, 2, 1, 4]

-- группируем
b = group a                                    -- [[1],[2],[4,4],[2,2],[1],[4]]

-- фильтруем список b, содержащие максимум списка a
c = let f (x:_) = x == maximum a in filter f b -- [[4,4],[4]]

-- минимальная длина группы
minimum . map length $ c                       -- 1

minimum . map length . filter ((== maximum a) . head ) . group $ a

a.inject(Hash.new(0)) { |hash, id| hash[id] += 1; hash }.invert.min.last

h = a.inject(Hash.new(0)) { |hash, id| hash[id] += 1; hash }
Hash[h.select { |key, val| val == h.values.min }].keys