Biorąc pod uwagę niepustą listę nieujemnych liczb całkowitych, rozważ przepisanie jej jako problemu arytmetycznego, gdy:

• Znak plus ( +) jest wstawiany między parami liczb, które zwiększają się od lewej do prawej (czyli od początku listy do końca).
• Znak minus ( -) jest wstawiany między pary liczb, które maleją od lewej do prawej.
• *Pomiędzy parami liczb, które są równe, wstawiany jest znak mnożenia ( ).

Powiedziane w inny sposób: każda podlista a,bstaje się a+bjeśli a<b, a-bjeśli a>bi a*bjeśli a==b.

Na przykład lista

[12, 0, 7, 7, 29, 10, 2, 2, 1]

stałby się wyrazem

12 - 0 + 7*7 + 29 - 10 - 2*2 - 1

co ocenia na 75 .

Napisz program lub funkcję, która pobiera taką listę i ocenia ją, drukując lub zwracając wynik.

• Kolejność operacji ma znaczenie. Przed dodaniem lub odjęciem należy wykonać pomnożenie.
• Jeśli lista wejściowa ma jeden numer, powinno to być to, co ocenia. np. [64]powinien dać 64.
• Użycie evallub execdopuszcza lub podobnej konstrukcji.

Oto kilka dodatkowych przykładów:

[list]
expression
value

[0]
0
0

[1]
1
1

[78557] 
78557
78557

[0,0]
0*0
0

[1,1]
1*1
1

[2,2]
2*2
4

[0,1]
0+1
1

[1,0]
1-0
1

[1,2]
1+2
3

[2,1]
2-1
1

[15,4,4]
15-4*4
-1

[9,8,1]
9-8-1
0

[4,2,2,4]
4-2*2+4
4

[10,9,9,12]
10-9*9+12
-59

[1,1,2,2,3,3]
1*1+2*2+3*3
14

[5,5,4,4,3,3]
5*5-4*4-3*3
0

[3,1,4,1,5,9,2,6,5,3,5,9]
3-1+4-1+5+9-2+6-5-3+5+9
29

[7637,388,389,388,387,12,0,0,34,35,35,27,27,2]
7637-388+389-388-387-12-0*0+34+35*35-27*27-2
7379

Najkrótszy kod w bajtach wygrywa. Tiebreaker to wcześniejsza odpowiedź.

Python 2, 63 bajty

p=s='print-'
for x in input():s+='*+-'[cmp(x,p)]+`x`;p=x
exec s

Konstruuje i evals ciąg wyrażeń. Symbol arytmetyczny wybiera się przez porównanie poprzedniego numeru pz bieżącym x. Do symbolu dołącza się bieżący numer.

Pierwszy numer jest obsługiwany za pomocą sprytnej sztuczki ze Sp3000. Wartość początkowa parametru pjest ustawiona na ciąg znaków, który jest większy niż dowolna liczba, a zatem powoduje, że występuje -przed pierwszą liczbą. Ale sinicjowana jest print-w tym samym czasie, co powoduje, że wynik zaczyna się od print--(dzięki xsot za zapisanie 2 bajtów przez inicjalizację za pomocą print.)

Pyth, 31 26 19 17 16 15 bajtów

Wyrażenia z *nie będą oceniać online, ale teoretycznie będą działać.

2 bajty dzięki Maltysen.

vsm+@"*-+"._-~k

Zestaw testowy (z oceną).

Pozostałe przypadki (bez oceny).

Historia

• 31 bajtów: M+G@"*-+"->GH<GHv+sgMC,JsMQtJ\x60e
• 26 bajtów: M+G@"*-+"->GH<GHv+sgVQtQ\x60e
• 19 bajtów: vtssVm@"*-+"->Zd<~Z
• 17 bajtów: vtssVm@"*-+"._-~Z
• 16 bajtów: vssVm@"*-+"._-~k
• 15 bajtów: vsm+@"*-+"._-~k

Galaretka , 18 16 15 14 bajtów

I0;ð1g×⁹⁸œṗP€S

Nie używa wbudowanego eval. Wypróbuj online! lub zweryfikuj wszystkie przypadki testowe .

Jak to działa

I0;ð1g×⁹⁸œṗP€S  Main link. Input: A (list)

I               Increments; compute the deltas of all adjacent items of A.
 0;             Prepend a 0.
   ð            Begin a new, dyadic chain.
                Left argument: D (0 plus deltas). Right argument: A
    1g          Compute the GCD of 1 and each item in D.
                This yields 1 for non-negative items, -1 for negative ones.
      ×⁹        Multiply each 1 or -1 with the corresponding item of A.
                This negates every item in A that follows a - sign.
        ⁸œṗ     Partition the result by D. This splits at occurrences of non-zero
                values of D, grouping items with identical absolute value.
           P€   Take the product of each group.
             S  Sum; add the results.

MATL , 12 bajtów

Y'^l6MdZSh*s

Wykorzystuje to bardzo fajny pomysł @ aditsu na kodowanie w czasie rzeczywistym.

Wypróbuj online!

Wyjaśnienie

       % Take input vector implicitly
Y'     % RLE. Produces two vectors: values and lengths
^      % Rise each value to the number of consecutive times it appears. This
       % realizes the product of consecutive equal values
l      % Push 1
6M     % Push vector of values again
d      % Consecutive differences
ZS     % Sign function. Gives 1 or -1 (no 0 in this case)
h      % Concatenate horizontally with previous 1
*      % Multiply. This gives plus or minus depending on increasing character
s      % Sum of vector. This realizes the additions or subtractions
       % Display implicitly

CJam, 20

q~e`{~_W-g\:W@#*}%:+

Wypróbuj online

Wyjaśnienie:

q~       read and evaluate the input (array of numbers)
e`       RLE encode, obtaining [count number] pairs
{…}%     map each pair
  ~_     dump the count and number on the stack, and duplicate the number
  W-     subtract the previous number (W is initially -1 by default)
  g      get the sign of the result
  \      swap with the other copy of the number
  :W     store it in W (for next iteration)
  @#     bring the count to the top, and raise the number to that power
  *      multiply with the sign
:+       add all the results together

JavaScript (ES6), 54

p=>eval(0+p.map(v=>x+='*-+'[(p>v)+2*(p<v)]+(p=v),x=1))

eval otrzymuje listę wyrażeń oddzieloną przecinkami i zwraca wartość ostatniego.

Test

f=p=>eval(0+p.map(v=>x+='*-+'[(p>v)+2*(p<v)]+(p=v),x=1))

t=p=>(0+p.map(v=>x+='*-+'[(p>v)+2*(p<v)]+(p=v),x=1))

function Test() {
  var a=I.value.match(/\d+/g).map(x=>+x) // convert input to a numeric array
  
  var x=f(a),y=t(a)
  O.textContent='Value '+x+'\n(no eval '+y+')'
}  

Test()

#I { width:80%}

<input value='12, 0, 7, 7, 29, 10, 2, 2, 1' id=I>
<button onclick='Test()'>Test</button>
<pre id=O></pre>

Julia, 76 57 bajtów

!x=[[" ""-*+"[2+sign(diff(x))]...] x]'|>join|>parse|>eval

Mój pierwszy raz grałem w golfa Julię, więc może są oczywiste ulepszenia. Wypróbuj online!

Dennis zaoszczędził mnóstwo bajtów.

Pyth - 23 22 20 bajtów

Podobnie jak w przypadku Kenny'ego, mnożenie nie działa online.

vs.i+\+@L"*+-"._M-Vt

Test Suite bez przeprowadzania oceny .

R, 92 bajty

Prawdopodobnie nadal można tu grać w golfa.

eval(parse(t=paste(i<-scan(),c(ifelse(d<-diff(i),ifelse(d>0,"+","-"),"*"),""),collapse="")))

Nie golfowany:

i = scan()                # Read list from stdin
d = diff(i)               # Calculate difference between each element of list
s = ifelse(d,             # If d!=0
             ifelse(d>0,  # And if d>1
                    "+",  # Return plus
                    "-"), # Else return minus
             "*")         # Else (i.e. d==0) return multiply.
s = c(s,"")               # Pad the list s with an empty string, so it's the same
                          # length as i
p = paste(i,s,collapse="")# Paste the elements of i and s into one long string.
eval(parse(t=p))          # Evaluate the string as a language object.

Brachylog , 34 32 bajty

~b≜ḅ⟨h⟨h≡^⟩l⟩ᵐs₂ᶠ{zh>₁&ttṅ|tt}ᵐ+

Wypróbuj online!

TI-BASIC, 146 bajtów

Ładnie go sformatuję, gdy nie będzie mobilny. Sen mi ucieka, więc rozumiesz. Cieszyć się.

Prompt L₁
"(→Str1
For(A,1,dim(L₁
{0,1→L₂
{0,L₁(A→L₃
LinReg(ax+b) L₁,L₃,Y₁
Equ►String(Y₁,Str2
sub(Str2,1,-1+inString(Str2,"X→Str2
If A>1
Then
L₁(A-1
2+(Ans>L₁(A))-(Ans<L₁(A
Str1+sub("+*-",Ans,1→Str1
End
Str1+Str2→Str2
End
expr(Str1

JavaScript ES6, 64 62 znaków

a=>eval(a.map((x,i)=>x+('*+-'[x<a[++i]|(x>a[i])*2])).join``+1)

Java, 384 bajty

int s(int[]l){int n=l[0],m;for(int i=0;i<l.length-1;i++)if(l[i]<l[i+1])if(i<l.length-2&&l[i+1]!=l[i+2])n+=l[i+1];else{m=l[i+1];while(i<l.length-2&&l[i+1]==l[i+2])m*=l[(i++)+1];n+=m;}else if(l[i]>l[i+1])if(i<l.length-2&&l[i+1]!=l[i+2])n-=l[i+1];else{m=l[i+1];while(i<l.length-2&&l[i+1]==l[i+2])m*=l[(i++)+1];n-=m;}else{m=l[i];while(i<l.length-1&&l[i]==l[i+1])m*=l[i++];n+=m;}return n;}

Ungolfed spróbuj online

int s(int[] l)
{
    int n=l[0], m;

    for(int i=0; i<l.length-1; i++)
    {
        if(l[i] < l[i+1])
        {
            if (i<l.length-2 && l[i+1]!=l[i+2])
            {
                n += l[i+1];
            }
            else
            {
                m = l[i+1];
                while(i<l.length-2 && l[i+1]==l[i+2]) m *= l[(i++)+1];
                n += m;
            }
        }
        else if(l[i] > l[i+1])
        {
            if (i<l.length-2 && l[i+1]!=l[i+2])
            {
                n -= l[i+1];
            }
            else
            {
                m = l[i+1];
                while(i<l.length-2 && l[i+1]==l[i+2]) m *= l[(i++)+1];
                n -= m;
            }
        }
        else
        {
            m = l[i];
            while(i<l.length-1 && l[i]==l[i+1]) m *= l[i++];
            n += m;
        }
    }

    return n;
}

JavaScript ES6, 79 znaków

a=>eval(`${a}`.replace(/(\d+),(?=(\d+))/g,(m,a,b)=>a+('*+-'[+a<+b|(+a>+b)*2])))

Perl, 49 bajtów

Kod 48 bajtów + 1 dla -p

s/\d+ (?=(\d+))/$&.qw(* - +)[$&<=>$1]/ge;$_=eval

Stosowanie

perl -pe 's/\d+ (?=(\d+))/$&.qw(* - +)[$&<=>$1]/ge;$_=eval' <<< '12 0 7 7 29 10 2 2 1'
75

Notatki

Nauczyłem się tutaj, że możesz uchwycić spojrzenie w PCRE, chociaż jest to trochę nieintuicyjne ( (?=(\d+))zamiast ((?=\d+))). Ma to jednak sens po przeczytaniu, ponieważ przechwytujesz dopasowanie o zerowej długości (z wyprzedzeniem) z tym drugim, a zamiast tego przechwytujesz dopasowanie z pierwszym.

Dzięki @ninjalj za uratowanie 8 bajtów!

Właściwie 30 bajtów

;2@VpXdX`i-su"+*-"E`M' @o♀+εj≡

Niestety, ponieważ ≡komenda eval ( ) ocenia tylko literały na TIO, ten program nie działa na TIO.

Wyjaśnienie:

;2@VpXdX`i-su"+*-"E`M' @o♀+εj≡
;                               duplicate input
 2@V                            overlapping sublists of length <= 2
    pXdX                        discard first and last element (length-1 sublists)
        `i-su"+*-"E`M           map: for each pair of elements
         i-su                     flatten, subtract, sign, increment (results in a 0 if b < a, 1 if b == a, and 2 if b > a)
             "+*-"E               select the correct operation
                     ' @o       put a space at the beginning of the list to pad it properly
                         ♀+     pairwise addition (since addition is not defined for strings and integers, this just zips the lists and flattens the result into a single flat list)
                           εj   join with empty string
                             ≡  eval

R , 120 44 bajtów

r=rle(scan());c(1,sign(diff(r$v)))%*%r$v^r$l

Wypróbuj online!

Algorytm jest podobny do tej odpowiedzi , ale zdałem sobie z tego sprawę dopiero po zakodowaniu mojej odpowiedzi. Znacznie lepiej niż moja pierwotna odpowiedź, która była używana eval(parse).

W pełni wykorzystuje wektoryzowane operacje R - czy *operacja najpierw używa rle(x)$values ^ rle(x)$lenghtsi kropkuje iloczyny tego wektora sign( diff( rle(x)$values ) )(poprzedza je 1).

05AB1E (starsza wersja) , 17 16 15 bajtów

ü.S…*-+sè‚ζJJ.E

-2 bajty dzięki @Emigna .

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

ü                  # Pair-wise loop over the (implicit) input-list
                   #  i.e. [12,0,7,7] → [[12,0],[0,7],[7,7]]
 .S                # Calculate the signum of the pair (-1 for a<b; 0 for a==b; 1 for a>b)
                   #  i.e. [[12,0],[0,7],[7,7]] → [1,-1,0]
   …*-+sè          # Index over "*-+" (with wrap-around)
                   #  i.e. [1,-1,0] → ['-','+','*']
         ‚ζ        # Zip the two lists together (appending the operands to the numbers)
                   #  i.e. [12,0,7,7] and ['-','+','*','+']
                   #   → [[12,'-'],[0,'+'],[7,'*'],[7,' ']]
           JJ      # Join them together
                   #  [[12,'-'],[0,'+'],[7,'*'],[7,' ']] → '12-0+7*7 '
             .E    # Evaluate as Python code
                   #  i.e. '12-0+7*7' → 61

PHP, 103 bajty

Zgrabne wyzwanie. Trwało to dłużej niż oczekiwano. Myślę, że użycie array_maplub podobne nie poprawi liczby bajtów, ponieważ anonimowe funkcje są wciąż drogie w PHP.

foreach(fgetcsv(STDIN)as$v)(0<=$p?$o.=$p.('*-+'[($p>$v)+2*($p<$v)]):_)&&$p=$v;echo eval("return$o$v;");

Działa z wiersza poleceń, wyświetli monit o listę oddzieloną przecinkami, na przykład:

php array_to_math.php
12, 0, 7, 7, 29, 10, 2, 2, 1

PowerShell v2 +, 62 bajty

-join($args|%{"$o"+'*+-'[($o-lt$_)+2*($o-gt$_)];$o=$_})+$o|iex

Pobiera dane wejściowe jako rozdzielone spacjami argumenty wiersza polecenia, które są konwertowane na tablicę automatyczną $args. Iterujemy przez każdy element, używając zmiennej pomocniczej $okażdej iteracji, aby zapamiętać, jaki był nasz poprzedni wpis. Używamy indeksowane ciąg wyciągnąć właściwego operatora, sporządzonej wykonując matematyki na niejawnie konwertowane wartości logicznych (na przykład wtedy, gdy poprzedni wpis jest mniejsze, []ma wartość 1+2*0tak '*+-'[1]oznacza, że +jest zaznaczone).

Połączone łańcuchy pozostawia się w rurociągu. My zbierać wszystkie te fragmenty ze sobą (na przykład 3-, 1+, 4-, itd.) Z -joineksploatacji, należy uszeregować w ostatecznej liczby (który ostatecznie przekształca się w ciągu) i rury IT iex(alias dla Invoke-Expressioni podobne do eval).

Japt , 25 bajtów

Chciałbym skrócić go, ale nie mogłem sprawić, by wersja bez wersji działała.

S+Uä!- ®"*+-"gZÎì)íU
OxU

Wypróbuj online!

Japt -x , 21 19 bajtów

änJ f mÎí*Uò¦ ®ÎpZÊ

Spróbuj

Wyjaśnienie

                        :Implicit input of array U
  J                     :Prepend -1
än                      :Get deltas
    f                   :Filter (remove 0s)
      m                 :Map
       Î                : Signs
        í               :Interleave
          U             :  Original input
           ò            :  Partition on
            ¦           :   Inequality
              ®         :  Map each sub-array Z
               Î        :    Get first element
                p       :    Raise to the power of
                 ZÊ     :     Length of Z
         *              :Reduce each pair of elements by multiplcation
                        :Implicitly reduce by addition and output