Problem:
Score : 500 points

Problem Statement

There are K items placed on a grid of squares with R rows and C columns. Let (i, j) denote the square at the i-th row (1 \leq i \leq R) and the j-th column (1 \leq j \leq C). The i-th item is at (r_i, c_i) and has the value v_i.

Takahashi will begin at (1, 1), the start, and get to (R, C), the goal. When he is at (i, j), he can move to (i + 1, j) or (i, j + 1) (but cannot move to a non-existent square).

He can pick up items on the squares he visits, including the start and the goal, but at most three for each row. It is allowed to ignore the item on a square he visits.

Find the maximum possible sum of the values of items he picks up.

Constraints

1 \leq R, C \leq 3000

1 \leq K \leq \min(2 \times 10^5, R \times C)

1 \leq r_i \leq R

1 \leq c_i \leq C

(r_i, c_i) \neq (r_j, c_j) (i \neq j)

1 \leq v_i \leq 10^9

All values in input are integers.

Input

Input is given from Standard Input in the following format:

R C K
r_1 c_1 v_1
r_2 c_2 v_2
:
r_K c_K v_K

Output

Print the maximum possible sum of the values of items Takahashi picks up.

Sample Input 1

2 2 3
1 1 3
2 1 4
1 2 5

Sample Output 1

8

He has two ways to get to the goal:

Visit (1, 1), (1, 2), and (2, 2), in this order. In this case, the total value of the items he can pick up is 3 + 5 = 8.

Visit (1, 1), (2, 1), and (2, 2), in this order. In this case, the total value of the items he can pick up is 3 + 4 = 7.

Thus, the maximum possible sum of the values of items he picks up is 8.

Sample Input 2

2 5 5
1 1 3
2 4 20
1 2 1
1 3 4
1 4 2

Sample Output 2

29

We have four items in the 1-st row. The optimal choices are as follows:

Visit (1, 1) (1, 2), (1, 3), (1, 4), (2, 4), and (2, 5), in this order, and pick up all items except the one on (1, 2). Then, the total value of the items he picks up will be 3 + 4 + 2 + 20 = 29.

Sample Input 3

4 5 10
2 5 12
1 5 12
2 3 15
1 2 20
1 1 28
2 4 26
3 2 27
4 5 21
3 5 10
1 3 10

Sample Output 3

142

Solution in Fortran (GNU Fortran 9.2.1) (judge verdict: Wrong Answer)

program sample
    implicit none
    character(100)::s
    integer(8) :: i,j,l,m,n,a,b,c,k,a1,a2,v,cou(4)
    integer(8),allocatable :: x(:,:),y1(:),y2(:),ans(:)
  
    read(*,*) a,b,k
    allocate(x(a,b),y1(b),y2(b),ans(b))
    x(:, :)=0
    do i=1,k
        read(*,*)a1,a2,v
        x(a1,a2)=v
    end do
    cou(:)=0
    c=1
    y1(1)=x(1,1)
    if(x(1,1)>0)then
        cou(1)=x(1,1)
        c=c+1
    endif
    do j=2,b
        y1(j)=y1(j-1)+x(1,j)
        if(x(1,j)>0)then
            if(c>3)then
                cou(4)=x(1,j)
                y1(j)=y1(j)-minval(cou)
                do l=1,4
                    if(cou(l)==minval(cou))then
                        cou(l)=cou(4)
                    end if
                end do
            else
                cou(c)=x(1,j)
                c=c+1
            end if
        end if
    end do
    ans(:)=y1(:)
        
    do i=2,a
        do j=1,b
            y2(j)=ans(j)+x(i,j)
        end do

        
        cou(:)=0
        c=0
        ans(1)=y2(1)
        do j=2,b
            
            y1(j)=ans(j-1)+x(i,j)
            
            if(x(i,j)>0)then
                if(c>3)then
                    cou(4)=x(i,j)
                    y1(j)=y1(j)-minval(cou)
                    do l=1,4
                        if(cou(l)==minval(cou))then
                            cou(l)=cou(4)
                        end if
                    end do
                else
                    cou(c)=x(i,j)
                    c=c+1
                end if
            end if
            if(y2(j)>y1(j))then
                ans(j)=y2(j)
                c=1
                cou(:)=0
            else
                ans(j)=y1(j)
            end if
        end do
    end do
    write(*,*)ans(b)
    
  
    stop
end program sample