Ini adalah perombakan dari pertanyaan yang sekarang dihapus oleh ar kang . Jika OP dari pertanyaan itu ingin mengklaim kembali pertanyaan ini atau memiliki masalah dengan saya memposting ini, saya akan dengan senang hati mengakomodasi

Diberikan daftar bilangan bulat sebagai input, temukan jumlah maksimum yang mungkin dari sublist kontinu yang dimulai dan diakhiri dengan nilai yang sama. Sublist harus paling sedikit 2. Sebagai contoh untuk daftar

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

Ada 2 daftar kontinyu yang berbeda mulai dan berakhir dengan nilai yang sama

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

Jumlah yang lebih besar adalah 9 sehingga Anda menghasilkan 9.

Anda dapat menganggap setiap input mengandung setidaknya 1 duplikat.

Ini adalah kode-golf sehingga jawaban akan dicetak dalam byte dengan lebih sedikit byte yang lebih baik.

Uji kasus

[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 byte

f mengambil daftar bilangan bulat dan mengembalikan bilangan bulat.

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

Cobalah online!

Bagaimana itu bekerja

• tadalah fungsi standar "dapatkan semua sufiks dari daftar tanpa mengimpor Data.List.tails".
• Dalam f l, pemahaman daftar iterates melalui semua sufiks non-kosong dari daftar argumen l, dengan elemen pertama xdan sisanya m.
• Untuk masing-masing, ia melakukan hal yang sama untuk semua sufiks nonempty m, memilih elemen pertama ydan sisanya n.
• Jika xdan ysama, pemahaman daftar mencakup jumlah elemen di antara mereka. Sublist ini sama x:mdengan suffixnya yang ndilepas, sehingga jumlahnya dapat dihitung sebagai x+sum m-sum n.

JavaScript (ES6), 68 62 byte

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

Uji kasus

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

Berkomentar

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

Jelly , 12 byte

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

Cobalah online!

Bagaimana itu bekerja

ĠŒ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.

Sekam , 10 byte

▲mΣfΓ~€;ṫQ

Cobalah online!

Penjelasan

▲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 byte

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

Cobalah online!

R , 108 103 90 88 83 byte

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

Cobalah online!

combnmenyerang lagi! Hasilkan semua sublists dengan panjang setidaknya 2, setel jumlah sublist menjadi -Infjika yang pertama dan terakhir tidak sama, dan ambil maks semua jumlah.

The "if"akan menaikkan sekelompok peringatan tetapi mereka aman dapat diketahui - itu mungkin yang terbaik golf trik di sini, rev(p)-padalah nol di IFF elemen pertama p[1]==tail(p,1), dan "if"menggunakan elemen pertama dari kondisinya dengan peringatan.

Python 3 , 81 byte

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)

Cobalah online!

Python , 62 byte

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

Cobalah online!

Output sebuah daftar tunggal .

Jelly , 13 , 12 byte

=ṚṖḢ
ẆÇÐfS€Ṁ

Cobalah online!

Satu byte disimpan oleh Tn. Xcoder, yang saat ini bersaing dengan saya. : D

Penjelasan:

        # 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

Bahasa Wolfram (Mathematica) , 54 byte

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

Cobalah online!

Pyth, 15 byte

eSsMf&qhTeTtT.:

Cobalah online

Penjelasan

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 byte

ŒʒćsθQ}OZ

Cobalah online!

Penjelasan

Π         # 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

Bersih , 94 90 86 byte

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

Cobalah online!

Python 2 , 86 byte

Dikalahkan oleh Dennis

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])

Cobalah online!

Menghasilkan semua sublists lebih besar dari panjang 2, di mana elemen pertama sama dengan yang terakhir, lalu memetakan masing-masing ke jumlahnya dan memilih nilai terbesar.

Ruby , 64 byte

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

Cobalah online!

Julia 0,6 , 70 byte

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

Cobalah online!

Jeli , 11 byte

Menggunakan beberapa fitur yang mengunggah tantangan.

Ẇµ.ịEȧḊµƇ§Ṁ

Cobalah online!

Bagaimana itu bekerja?

Ẇμ.ịEȧḊμƇ§Ṁ || Program lengkap. Mengambil input dari CLA, output ke STDOUT.
Ẇ || Sublists.
 µ µƇ || Filter-Simpan itu
    ȧḊ || ... Yang memiliki panjang minimal 2 dan ...
 .ị || ... Elemen di lantai (0,5) dan langit-langit (0,5) (modular, 1-diindeks) ...
    E || ... Adalah sama.
         § || Jumlahkan masing-masing.
          Ṁ || Maksimum.

-1 dengan bantuan dari caird .

Batch, 179 byte

@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%

Mengambil input sebagai parameter baris perintah.

C, 104 byte

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;}

Cobalah online!

C (gcc) , 99 byte

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;}

Cobalah online!

Clojure, 92 byte

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

Java 8, 129 bye

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

Untuk setiap bilangan bulat Xdalam daftar, fungsi menemukan jumlah sublist terbesar dengan awal dan akhir X. Kemudian, ia menemukan jumlah maksimum yang ditentukan OP.

Perl, 61 59 byte

Termasuk +3untuk -p:

max_ident_run.pl:

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

Jalankan sebagai:

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