enum Relation = {
    SAME,
    DECREASING,
    INCREASING
}

Relation get_relation(a, b):
    if a < b : return return INCREASING
    else if a > b return DECREASING
    else return SAME

int get_inner_sequences_cound(size):
    TODO

numbers_list = { ... }
current_pos = 1

if length(numbers_list) < 2
    return 0

current_sequnce_state = get_relation(0, 1)
current_sequence_size = 2
result = 0

for current_pos = 1; current_pos < length(numbers_list); ++current_pos:
    relation = get_relation(numbers_list[pos - 1], numbers_list[pos - 1])

    if current_sequnce_state == NOT_KNOWN
        current_sequence_size += 1
        current_sequnce_state relation
    else if current_sequnce_state == relation
        current_sequence_size += 1
    else
        result += get_inner_sequences_cound(current_sequnce_state)
        current_sequnce_state = relation
        current_sequence_size = 2

result += get_inner_sequences_cound(current_sequnce_state)

return result