Проверка, все ли элементы равны map / fold

Question

Учитывая список элементов, таких как [1, 1, 1] или ["a", "a", "a"], как я могу проверить, все ли они равны, используя map / fold?

Я пытался сделать что-то вроде этого:

let eq lst = fold (=) lst

, который не компилируется, потому что нет аккумулятора, но я действительно не очень уверен, что положить для аккумулятора. Любая помощь приветствуется.

Answer 1

Ну, это похоже на задание, поэтому я не буду давать вам полный ответ, только некоторые подсказки.

• Пустой список состоит из равных элементов (пустая правда)
• Если список начинается с x, а все остальные элементы равны x, то все элементы спискаравны.