Поиск серии элементов с максимальной суммой.требуется создать такой предикат find_max_series, при котором бы запрос ?- find_max_series([2, 4, 1, 2, 1, 5, 6, 4, 9, 3], X). выполнялся бы с унификацией X=[4, 9].Серия — это неубывающая или невозрастающая последовательность; например, последовательность 3, 3, 5, 4, 2, 6 состоит из трех неубывающих серий: (3, 3, 5), (4) и (2, 6).
У самого ничего не выходит, так как плохо знаком с прологом. Помогите пожалуйста! Или хотя бы подскажите как разделить список на неубывающие серии.