これは、ar kangによって削除されたこの質問のオーバーホールです。その質問のOPがこの質問を取り戻したい場合、またはこれを投稿することで問題がある場合は、喜んで対応します

入力として整数のリストを指定すると、同じ値で開始および終了する連続サブリストの最大可能合計を見つけます。サブリストの長さは少なくとも2でなければなりません。たとえば、リストの場合

[1, 2, -2, 4, 1, 4]

同じ値で開始および終了する2つの異なる連続サブリストがあります

[1,2,-2,4,1] -> 6
[4,1,4]      -> 9

大きい方の合計は9なので、9を出力します。

すべての入力に少なくとも1つの重複が含まれると想定できます。

これはコードゴルフであるため、回答はバイト単位でスコアリングされ、バイト数は少ない方が良いでしょう。

テストケース

[1,2,-2,4,1,4]  -> 9
[1,2,1,2]       -> 5
[-1,-2,-1,-2]   -> -4
[1,1,1,8,-1,8]  -> 15
[1,1,1,-1,6,-1] -> 4
[2,8,2,-3,2]    -> 12
[1,1,80]        -> 2
[2,8,2,3,2]     -> 17

Haskell、62バイト

f 整数のリストを取り、整数を返します。

f l=maximum[x+sum m-sum n|x:m<-t l,y:n<-t m,x==y]
t=scanr(:)[]

オンラインでお試しください！

使い方

• t標準の「インポートせずにリストのすべてのサフィックスを取得するData.List.tails」機能です。
• でf l、引数リストのすべての非空のサフィックスを介してリスト内包反復l最初の要素と、x残部m。
• それぞれについて、のすべての空でない接尾辞に対して同じことを行い、m最初の要素yと残りを選択しnます。
• 場合xとy同じである、リストの内包は、それらの間の要素の和を含んでいます。このサブリストは、x:m接尾辞をn削除したものと同じであるため、合計はとして計算できますx+sum m-sum n。

JavaScript（ES6）、68 62バイト

a=>a.map(m=(x,i)=>a.map((y,j)=>m=j<=i||(x+=y)<m|y-a[i]?m:x))|m

テストケース

let f =

a=>a.map(m=(x,i)=>a.map((y,j)=>m=j<=i||(x+=y)<m|y-a[i]?m:x))|m

console.log(f([1,2,-2,4,1,4] )) // -> 9
console.log(f([1,2,1,2]      )) // -> 5
console.log(f([-1,-2,-1,-2]  )) // -> -4
console.log(f([1,1,1,8,-1,8] )) // -> 15
console.log(f([1,1,1,-1,6,-1])) // -> 4
console.log(f([2,8,2,-3,2]   )) // -> 12
console.log(f([1,1,80]       )) // -> 2

コメント済み

a =>                    // a = input array
  a.map(m =             // initialize m to a function (gives NaN in arithmetic operations)
    (x, i) =>           // for each entry x at position i in a:
    a.map((y, j) =>     //   for each entry y at position j in a:
      m =               //     update m:
        j <= i ||       //       if j is not after i
        (x += y) < m |  //       or the sum x, once updated, is less than m
        y - a[i] ?      //       or the current entry is not equal to the reference entry:
          m             //         let m unchanged
        :               //       else:
          x             //         update m to the current sum
    )                   //   end of inner map()
  ) | m                 // end of outer map(); return m

ゼリー、12バイト

ĠŒc€Ẏr/€ịḅ1Ṁ

オンラインでお試しください！

使い方

ĠŒc€Ẏr/€ịḅ1Ṁ  Main link. Argument: A (array)

Ġ             Group the indices of A by their corresponding values.
 Œc€          Take all 2-combinations of grouped indices.
    Ẏ         Dumps all pairs into a single array.
     r/€      Reduce each pair by range, mapping [i, j] to [i, ..., j].
        ị     Index into A.
         ḅ1   Convert each resulting vector from base 1 to integer, effectively
              summing its coordinates.
           Ṁ  Take the maximum.

殻、10バイト

▲mΣfΓ~€;ṫQ

オンラインでお試しください！

説明

▲mΣfΓ~€;ṫQ  Input is a list, say x=[1,2,-2,4,1,4]
         Q  Slices: [[1],[2],[1,2],..,[1,2,-2,4,1,4]]
   f        Keep those that satisfy this:
    Γ        Deconstruct into head and tail, for example h=2 and t=[-2,4,1]
        ;    Wrap h: [2]
      ~€     Is it an element of
         ṫ   Tails of t: [[-2,4,1],[4,1],[1]]
            Result: [[1,2,-2,4,1],[4,1,4]]
 mΣ         Map sum: [6,9]
▲           Maximum: 9

Haskell、66バイト

maximum.f
f(x:y)=[sum$x:take a y|(a,b)<-zip[1..]y,b==x]++f y
f x=x

オンラインでお試しください！

R、108の 103 90 88 83バイト

function(l)max(combn(seq(l),2,function(x)"if"(rev(p<-l[x[1]:x[2]])-p,-Inf,sum(p))))

オンラインでお試しください！

combn再びストライキ！少なくとも長さのすべてのサブリストを生成し、最初と最後が等しくない場合に2サブリストの合計を設定し、-Infすべての合計の最大値を取ります。

"if"警告の束を上げるが、彼らが安全に無視されます-おそらく、ここで最高のゴルフのトリックだと、rev(p)-p最初の要素のIFFではゼロであるp[1]==tail(p,1)、と"if"警告してその状態の最初の要素を使用しています。

Python 3、81バイト

lambda x,e=enumerate:max(sum(x[i:j+1])for i,a in e(x)for j,b in e(x)if(a==b)*j>i)

オンラインでお試しください！

Python、62バイト

f=lambda l:l and max(f(l[1:]),[sum(l)]*(l.pop()in l[:1]),f(l))

オンラインでお試しください！

シングルトンリストを出力します。

ゼリー、13、12のバイト

=ṚṖḢ
ẆÇÐfS€Ṁ

オンラインでお試しください！

現在私と競っているXcoder氏によって1バイトが保存されました。：D

説明：

        # Helper link:
=Ṛ      # Compare each element of the list to the element on the opposite side (comparing the first and last)
  Ṗ     # Pop the last element of the resulting list (so that single elements return falsy)
   Ḣ    # Return the first element of this list (1 if the first and last are equal, 0 otherwise)

        # Main link:
Ẇ       # Return every sublist
 Ç      # Where the helper link
  Ðf    # Returns true (1)
    S€  # Sum each resulting list
      Ṁ # Return the max

Wolfram言語（Mathematica）、54バイト

Max@SequenceCases[#,{a_,b___,a_}:>2a+b,Overlaps->All]&

オンラインでお試しください！

Pyth、15バイト

eSsMf&qhTeTtT.:

オンラインで試す

説明

eSsMf&qhTeTtT.:
             .:Q  Take all sublists of the (implicit) input.
    f qhTeT       Take the ones that start and end with the same number...
     &     tT     ... and have length at least 2.
  sM              Take the sum of each.
eS                Get the largest.

05AB1E、9バイト

ŒʒćsθQ}OZ

オンラインでお試しください！

説明

Π         # push sublists of input
 ʒ    }    # filter, keep values where
  ć        # the head of the list, extracted
     Q     # is equal to
   sθ      # the last element of the rest of the list
       O   # sum the resulting sublists
        Z  # get the max

クリーン、94 90 86バイト

import StdEnv,StdLib
@l=last(sort[sum(l%(i,j))\\e<-l&i<-[0..],j<-elemIndices e l|j>i])

オンラインでお試しください！

Python 2、86バイト

デニスのアウトゴルフ

lambda x:max(sum(x[i:j+1])for i,v in enumerate(x)for j in range(i+1,len(x))if v==x[j])

オンラインでお試しください！

最初の要素が最後の要素と等しい、長さ2より大きいすべてのサブリストを生成し、それぞれをその合計にマッピングして、最大値を選択します。

Ruby、64バイト

->l{w,*r=0;(z=l.index w)&&r<<w+l[z..-1].sum while w=l.pop;r.max}

オンラインでお試しください！

ジュリア0.6、70バイト

a->maximum(sum(a[i:k]) for b=[findin(a,x) for x=a] for i=b,k=b if k>i)

オンラインでお試しください！

ゼリー、11バイト

チャレンジをポストデートするいくつかの機能を使用します。

Ẇµ.ịEȧḊµƇ§Ṁ

オンラインでお試しください！

使い方？

Ẇµ.ịEȧḊµƇ§Ṁ || 完全なプログラム。CLAから入力を受け取り、STDOUTに出力します。
Ẇ|| サブリスト。
 µ µƇ || フィルターキープ
    ȧḊ|| ...長さが少なくとも2で、...
 .ị|| ... floor（0.5）およびceil（0.5）の要素（モジュラー、1インデックス）...
    E || ... 等しいです。
         §|| それぞれを合計します。
          Ṁ|| 最大。

-1 ケアードの助けを借りて。

バッチ、179バイト

@set s=%*
@set/a"m=-1<<30
:l
@set/at=n=%s: =,%
@set s=%s:* =%
@for %%e in (%s%)do @set/at+=%%e&if %%e==%n% set/a"m+=(m-t)*(m-t>>31)
@if not "%s%"=="%s: =%" goto l
@echo %m%

入力をコマンドラインパラメーターとして受け取ります。

C、104バイト

i,j,s,l;f(a,n)int*a;{for(i=0,l=1<<31;i<n;++i)for(s=a[j=i];++j<n;l=a[j]-a[i]?l:s>l?s:l)s+=a[j];return l;}

オンラインでお試しください！

C（gcc）、99バイト

i,j,s,l;f(a,n)int*a;{for(i=0,l=1<<31;i<n;++i)for(s=a[j=i];++j<n;l=a[j]-a[i]?l:s>l?s:l)s+=a[j];l=l;}

オンラインでお試しください！

Clojure、92バイト

#(apply max(for[i(range(count %))j(range i):when(=(% i)(% j))](apply +(subvec % j(inc i)))))

Java 8、129バイス

a->a.stream().map(b->a.subList(a.indexOf(b),a.lastIndexOf(b)+1).stream().mapToLong(Long::intValue).sum()).reduce(Long::max).get()

Xリスト内の各整数について、関数はstartとendを持つ最大のサブリストの合計を見つけXます。次に、OPが指定する最大合計を見つけます。

Perl、 61 59バイト

含み+3のために-p：

max_ident_run.pl：

#!/usr/bin/perl -p
s:\S+:$%=$&;($%+=$_)<($\//$%)||$_-$&or$\=$%for<$' >:eg}{

として実行：

max_ident_run.pl <<< "1 2 -2 4 1 4 1"