Problem:
Score : 400 points

Problem Statement

Your friend gave you a dequeue D as a birthday present.

D is a horizontal cylinder that contains a row of N jewels.

The values of the jewels are V_1, V_2, ..., V_N from left to right. There may be jewels with negative values.

In the beginning, you have no jewel in your hands.

You can perform at most K operations on D, chosen from the following, at most K times (possibly zero):

Operation A: Take out the leftmost jewel contained in D and have it in your hand. You cannot do this operation when D is empty.

Operation B: Take out the rightmost jewel contained in D and have it in your hand. You cannot do this operation when D is empty.

Operation C: Choose a jewel in your hands and insert it to the left end of D. You cannot do this operation when you have no jewel in your hand.

Operation D: Choose a jewel in your hands and insert it to the right end of D. You cannot do this operation when you have no jewel in your hand.

Find the maximum possible sum of the values of jewels in your hands after the operations.

Constraints

All values in input are integers.

1 \leq N \leq 50

1 \leq K \leq 100

-10^7 \leq V_i \leq 10^7

Input

Input is given from Standard Input in the following format:

N K
V_1 V_2 ... V_N

Output

Print the maximum possible sum of the values of jewels in your hands after the operations.

Sample Input 1

6 4
-10 8 2 1 2 6

Sample Output 1

14

After the following sequence of operations, you have two jewels of values 8 and 6 in your hands for a total of 14, which is the maximum result.

Do operation A. You take out the jewel of value -10 from the left end of D.

Do operation B. You take out the jewel of value 6 from the right end of D.

Do operation A. You take out the jewel of value 8 from the left end of D.

Do operation D. You insert the jewel of value -10 to the right end of D.

Sample Input 2

6 4
-6 -100 50 -2 -5 -3

Sample Output 2

44

Sample Input 3

6 3
-6 -100 50 -2 -5 -3

Sample Output 3

0

It is optimal to do no operation.

Solution in Common Lisp (SBCL 1.1.14) (judge verdict: Runtime Error)

(defun split (input stack-string output-list)
  (let ((chara (car input)))
    (case chara
          ((nil) (append output-list (list stack-string)))
          (#\space (split (cdr input)
                                  '()
                                  (append output-list (list stack-string))))
          (otherwise (split (cdr input)
                                    (concatenate 'string stack-string (list chara))
                                    output-list)))))

(defun input-to-list (input)
  (mapcar #'parse-integer (split (concatenate 'list input)
                                 '()
                                 '())))

(defparameter nk (input-to-list (read-line)))
(defparameter v (input-to-list (read-line)))

(defun num-pat (num len)
  (labels ((inner (num cnt lst)
                  (if (eq cnt len)
                      lst
                      (inner (truncate num 4) (1+ cnt) (cons (mod num 4) lst)))))
          (inner num 0 '())))

(defun dot (lst1 lst2)
  (reduce #'+ (mapcar #'* lst1 lst2)))

(defun lastvalue (pattern column hand)
  (if pattern
      (case (car pattern)
            (0 (if column
                   (lastvalue (cdr pattern) (cdr column) (cons (first column) hand))
                   (lastvalue (cdr pattern) column hand)))
            (1 (if column
                   (lastvalue (cdr pattern) (subseq column 0 (1- (length column))) (cons (car (last column)) hand))
                   (lastvalue (cdr pattern) column hand)))
            (2 (if hand
                   (let ((mi (apply #'min hand))) (lastvalue (cdr pattern) (cons mi column) (remove mi hand)))
                   (lastvalue (cdr pattern) column hand)))
            (3 (if hand
                   (let ((mi (apply #'min hand))) (lastvalue (cdr pattern) (append `(,mi) column) (remove mi hand)))
                   (lastvalue (cdr pattern) column hand)))
            (otherwise (princ "error")))
      (if hand
          (reduce #'+ hand)
          0)))

(princ (apply #'max (loop for i from 0 to (cadr nk)
                  collect (apply #'max (loop for j from 0 to (1- (expt 4 i))
                                collect (lastvalue (num-pat j (cadr nk)) v '()))))))