Bu bir revizyon olduğunu bu şimdi silinmiş soruya tarafından ar kang . Bu sorunun OP'si bu soruyu geri almak isterse ya da bunu gönderirken benimle ilgili bir sorun varsa, bu konuyu yanıtlamaktan memnuniyet duyarım

Girdi olarak bir tamsayı listesi verildiğinde, aynı değerle başlayan ve biten sürekli bir alt listenin mümkün olan maksimum miktarını bulun. Alt listelerin uzunluğu en az 2 olmalıdır. Örneğin liste için

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

Aynı değerde 2 farklı sürekli alt liste başlıyor ve bitiyor

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

Daha büyük toplam 9, böylece 9 çıktısını alırsınız.

Her girişin en az 1 kopya içerdiğini varsayabilirsiniz.

Bu kod golf'dür, bu nedenle cevaplar daha az byte'ın daha iyi olmasıyla byte olarak puanlanacaktır.

Test durumları

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

f bir tamsayı listesini alır ve bir tamsayı döndürür.

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

Çevrimiçi deneyin!

Nasıl çalışır

• t"Bir listenin tüm soneklerini almadan alma Data.List.tails" standardıdır .
• Olarak f l, bağımsız değişken listesi olmayan tüm boş eklerinden üzerinden liste anlama dolaşır lbirinci eleman ile, xve geri kalan m.
• Her biri için m, ilk elemanı yve kalanı seçerek, tüm boş olmayan son ekleri için aynı şeyi yapar n.
• Eğer xve yeşitse, liste anlama, aralarındaki elementlerin toplamını içerir. Bu alt liste çıkarılmış x:msonekiyle aynıdır n, dolayısıyla toplam olarak hesaplanabilir x+sum m-sum n.

JavaScript (ES6), 68 62 bayt

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

Test durumları

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

Yorumlananlar

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

Jöle , 12 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

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

kabuk , 10 bayt

▲mΣfΓ~€;ṫQ

Çevrimiçi deneyin!

açıklama

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

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

Çevrimiçi deneyin!

R , 108 103 90 88 83 bayt

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

Çevrimiçi deneyin!

combntekrar grev! En azından uzunluktaki tüm alt listeleri oluşturur 2, alt liste toplamını-Inf , ilk ve durumlarda tüm toplamların maksimumunu alır.

"if"Uyarıların bir demet yükseltecektir ancak güvenle ardı vardır - burada muhtemelen en iyi golf hile olduğunu rev(p)-pilk eleman IFF içinde sıfır olduğunu p[1]==tail(p,1)ve "if"bir uyarı ile kendi durumunun ilk öğesini kullanır.

Python 3 , 81 bayt

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)

Çevrimiçi deneyin!

Python , 62 bayt

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

Çevrimiçi deneyin!

Tekli bir liste çıkarır .

Jöle , 13 , 12 bayt

=ṚṖḢ
ẆÇÐfS€Ṁ

Çevrimiçi deneyin!

Şu anda benimle rekabet eden Bay Xcoder tarafından kaydedilen bir bayt. : D

Açıklama:

        # 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 Dili (Mathematica) , 54 bayt

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

Çevrimiçi deneyin!

Pyth, 15 bayt

eSsMf&qhTeTtT.:

Çevrimiçi deneyin

açıklama

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 bayt

ŒʒćsθQ}OZ

Çevrimiçi deneyin!

açıklama

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

Temiz , 94 90 86 bayt

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

Çevrimiçi deneyin!

Python 2,86 bayt

Dennis tarafından Outgolfed

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

Çevrimiçi deneyin!

İlk öğenin sonuncuya eşit olduğu uzunluk 2'den büyük tüm alt listeleri oluşturur, ardından her birini toplamına eşler ve en büyük değeri seçer.

Ruby , 64 bayt

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

Çevrimiçi deneyin!

Julia 0.6 , 70 bayt

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

Çevrimiçi deneyin!

Jöle , 11 bayt

Mücadeleyi tarihlendiren bazı özellikleri kullanır.

Ẇµ.ịEȧḊµƇ§Ṁ

Çevrimiçi deneyin!

Nasıl çalışır?

Ẇµ.ịEȧḊµƇ§Ṁ || Tam program CLA'dan giriş alır, STDOUT çıkışına çıkar.
Ẇ || Alt listeler.
 Ƈ Ƈ || Bunları süzgeç tut
    ȧḊ || ... uzunluğu en az 2 olan ve ...
 .ị || ... Zemindeki (0.5) ve tavandaki (0.5) elemanlar (modüler, 1 indeksli) ...
    E || ... eşittir.
         § || Her birini topla.
          Ṁ || Maksimum.

Caird'in yardımıyla -1 .

Toplu iş, 179 bayt

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

Komut satırı parametreleri olarak girdi alır.

C, 104 bayt

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

Çevrimiçi deneyin!

C (gcc) , 99 bayt

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

Çevrimiçi deneyin!

Clojure, 92 bayt

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

Java 8, 129 bayt

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

XListedeki her tam sayı için, işlev başlangıç ​​ve bitiş olan en büyük alt listenin toplamını bulur X. Sonra OP'nin belirttiği maksimum toplamı bulur.

Perl, 61 59 bayt

Şunlar +3için içerir -p:

max_ident_run.pl:

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

Olarak çalıştırmak:

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