Problem:
Score: 500 points

Problem Statement

Given is a permutation P of \{1, 2, \ldots, N\}.

For a pair (L, R) (1 \le L \lt R \le N), let X_{L, R} be the second largest value among P_L, P_{L+1}, \ldots, P_R.

Find \displaystyle \sum_{L=1}^{N-1} \sum_{R=L+1}^{N} X_{L,R}.

Constraints

2 \le N \le 10^5

1 \le P_i \le N

P_i \neq P_j (i \neq j)

All values in input are integers.

Input

Input is given from Standard Input in the following format:

N
P_1 P_2 \ldots P_N

Output

Print \displaystyle \sum_{L=1}^{N-1} \sum_{R=L+1}^{N} X_{L,R}.

Sample Input 1

3
2 3 1

Sample Output 1

5

X_{1, 2} = 2, X_{1, 3} = 2, and X_{2, 3} = 1, so the sum is 2 + 2 + 1 = 5.

Sample Input 2

5
1 2 3 4 5

Sample Output 2

30

Sample Input 3

8
8 2 7 3 4 5 6 1

Sample Output 3

136

Solution in C# (Mono 4.6.2.0) (judge verdict: Time Limit Exceeded)

using System;
using System.Collections.Generic;

namespace ConsoleApp1
{
    class Program
    {
        static void Main(string[] args)
        {
            // 各種変数の読み込み
            int n = Readint();
            var p = Readints();
            var sum = 0;
            for (int l = 0; l < n - 1; l++)
            {
                int max = Math.Max(p[l], p[l + 1]);
                int second = Math.Min(p[l], p[l + 1]);
                sum += second;
                for (int r = l + 2; r < n; r++)
                {
                    if (p[r] > max)
                    {
                        second = max;
                        max = p[r];
                        sum += second;
                    }
                    else if (p[r] > second)
                    {
                        sum += p[r];
                        second = p[r];
                    }
                    else
                    {
                        sum += second;
                    }
                }
            }
            Console.WriteLine(sum);


#if DEBUG
            Console.ReadKey();
#endif
        }

        private static bool[] ReadLR()
        {
            var s = Console.ReadLine().ToCharArray();
            var output = new bool[s.Length];
            for (int i = 0; i < s.Length; i++)
            {
                output[i] = s[i] == 'R';
            }
            return output;
        }

        private static int SearchLR(bool[] lr)
        {
            // LRとなっている箇所を見つけてRのインデックスを返す
            int i = 0;
            while (lr[i])
            {
                i++;
                if (i == lr.Length)
                {
                    return i;
                }
            }
            while (!lr[i])
            {
                i++;
                if (i == lr.Length)
                {
                    return i;
                }
            }
            return i;
        }


        private static int SearchRL(bool[] lr)
        {
            // RLとなっている箇所を見つけてLのインデックスを返す
            int i = 0;
            while (!lr[i])
            {
                i++;
                if (i == lr.Length)
                {
                    return i;
                }
            }
            while (lr[i])
            {
                i++;
                if (i == lr.Length)
                {
                    return i;
                }
            }
            return i;
        }

        private static int Readint()
        {
            // 1行に1つのintが入力されたのを読む
            return int.Parse(Console.ReadLine());
        }

        private static int[] Readints()
        {
            // 1行に複数のintが入力されたのを読む
            var s = Console.ReadLine().Split(' ');
            var output = new int[s.Length];
            for (int i = 0; i < s.Length; i++)
            {
                output[i] = int.Parse(s[i]);
            }
            return output;
        }

        private static int[][] Readints(int n, bool transpose=false)
        {
            // n行それぞれにintが入力されたのを読む
            // output[行番号][列番号]で返す。
            // transposeがtrueのときは、output[列番号][行番号]で返す。
            var s = Console.ReadLine().Split(' ');
            int rownum = s.Length;
            if (transpose)
            {
                var outputs = new int[rownum][];
                for (int j = 0; j < rownum; j++)
                {
                    outputs[j] = new int[n];
                }
                for (int i = 0; i < s.Length; i++)
                {
                    outputs[i][0] = int.Parse(s[i]);
                }
                for (int l = 1; l < n; l++)
                {
                    var temps = Console.ReadLine().Split(' ');
                    for (int i = 0; i < rownum; i++)
                    {
                        outputs[i][l] = int.Parse(temps[i]);
                    }
                }
                return outputs;
            }
            else
            {
                var outputs = new int[n][];
                outputs[0] = new int[rownum];
                for (int i = 0; i < s.Length; i++)
                {
                    outputs[0][i] = int.Parse(s[i]);
                }
                for (int l = 1; l < n; l++)
                {
                    outputs[l] = new int[rownum];
                    var temps = Console.ReadLine().Split(' ');
                    for (int i = 0; i < rownum; i++)
                    {
                        outputs[l][i] = int.Parse(temps[i]);
                    }
                }
                return outputs;
            }
        }

        private int[] Minusone(int[] x)
        {
            var output = new int[x.Length];
            for (int i = 0; i < x.Length; i++)
            {
                output[i] = x[i] - 1;
            }
            return output;
        }

        // 元の配列をソートして、ソート後の各要素の、元のインデックスを返す
        private static int[] SortwithIndex(double[] data)
        {
            var index = new int[data.Length];
            for (int i = 0; i < data.Length; i++)
            {
                index[i] = i;
            }
            QSort(data, index, 0, data.Length - 1);
            return index;
        }

        private static void QSort(double[] data, int[] index, int low, int high)
        {
            // 要素数が1以下の領域ができた場合、その領域は確定とする。
            if (high - low < 1)
                return;

            // 1. ピボットとして一つ選びそれをPとする。
            var P = data[(low + high + 1) / 2];

            // 2. 左から順に値を調べ、P以上のものを見つけたらその位置をiとする。
            // 3. 右から順に値を調べ、P以下のものを見つけたらその位置をjとする。
            // 4. iがjより左にあるのならばその二つの位置を入れ替え、2に戻る。ただし、次の2での探索はiの一つ右、次の3での探索はjの一つ左から行う。
            int i = low - 1;
            int j = high + 1;
            while (Scan(data, P, ref i, ref j))
            {
                Swap(data, index, i, j);
            }

            // 5. 2に戻らなかった場合、iの左側を境界に分割を行って2つの領域に分け、そのそれぞれに対して再帰的に1からの手順を行う。
            QSort(data, index, low, i - 1);
            QSort(data, index, i, high);
        }

        private static bool Scan(double[] data, double P, ref int i, ref int j)
        {
            while (data[++i] < P) ;
            while (data[--j] > P) ;
            return i < j;
        }
        

        private static void Swap(double[] data, int[] index, int i, int j)
        {
            var temp = data[i];
            data[i] = data[j];
            data[j] = temp;
            var temp2 = index[i];
            index[i] = index[j];
            index[j] = temp2;
        }
    }
}