Crea un programma che risolva un'espressione matematica usando gli elementi dai lati alternati dell'espressione. Il modo in cui è fatto è, invece di leggere da sinistra a destra, leggi il primo carattere, poi l'ultimo, poi il secondo, quindi il secondo all'ultimo, ecc. Questo ti darà una nuova espressione che devi valutare e produrre.

a*b/c+d-e
135798642  <-- Order you read the expression in
ae*-bd/+c  <-- Order of operation. 

Esempio:

1*3/2+4-5
15*-34/+2 = -255

Se l'espressione non "funziona", è 1necessario inserire un nelle posizioni necessarie per farlo funzionare.

Alcuni esempi probabilmente lo illustreranno meglio:

Input: 1+1+1+1+1
Result: 23     // Because 1+1+1+1+1 -> 11++11++1 -> 23

Input: 1+2-3+12-5
Result: -19    // Because 1+2-3+12-5 -> 15+-22-13+ -> 15+-22-13+1 -> -19
               //                                 |
               //                                 Not valid expression

Input: 2*2*2*2*2
Result: 968    // Because 2*2*2*2*2 -> 22**22**2 -> 22*1*22*1*2 -> 968
               //                        ||  ||
               //                        Not valid, 1 must be inserted

Input: 17/2
Output: 127    // Because 17/2 = 127/ -> 127/1 -> 127

Gli operatori che devono essere supportati sono + - * /. Non ci saranno parentesi. Vengono utilizzate le normali regole matematiche e la "sintassi", quindi ad esempio **non significa esponenziazione. a++++1è equivalente a a+1(cioè stile MATLAB, non C ++).

In caso di dubbi, alcune operazioni valide sono:

-a
+a
a++b
a+-b
a*-b
a*+b
a*++b
a/b
a/-b
a/+b
-a/--b

Mentre tutto quanto segue non è valido. Viene mostrato con cosa dovrebbero essere sostituiti con:

a+      | a+1
a-      | a-1
a++++   | a++++1   (This is equivalent to a+1)
a*+++   | a*+++1   (This is equivalent to a*1)
a**b    | a*1*b
a*/b    | a*1/b
a/*b    | a/1*b
a*      | a*1
*a      | 1*a
***a    | 1*1*1*a

Regole:

• Il codice può essere una funzione o un programma completo
• L'input può essere STDIN o argomento della funzione
• L'input deve essere un'espressione matematica valida, senza virgolette ''o"" .
• L'output dovrebbe essere la risposta alla nuova espressione, come numero intero, decimale o frazione semplificata.
• Devono essere supportate almeno tre cifre dopo il punto decimale. Quindi 1/3 = 0.333no 0.33. 0.333333333è accettato.
• ans = ... è accettato.
• Sono accettate nuove linee guida e nuove linee e spazi.
• L'input sarà solo numeri interi
• La divisione per zero può causare un errore, NaN, Inf ecc. L'emissione di un numero non è accettata.

Come sempre, vince il codice più breve in byte. Verrà selezionato un vincitore una settimana dal giorno in cui è stata pubblicata la sfida. Le risposte postate in seguito potrebbero comunque vincere se è più breve dell'attuale leader.

Perl, 108 100 byte

$_="";while(@F){$_.=shift@F;$_.=pop@F}s@(\*|/)\1+@\1@g;s@^[*/]@1$&@;s@\D$@$&1@;s@\D@$&@g;$_=eval

Il codice è di 96 byte, più 4 per l'argomento della riga di comando -pF//, dove

• -pinserti while (<>) { .. } continue { print }e
• -F//divide l'input e lo inserisce @F.

Si noti che l'input non dovrebbe avere una nuova riga finale, quindi utilizzare /bin/echo -n 'formula' | perl ...

Meno golf:

$_='';              # reset $_
while(@F) {         # reorder input
   $_.=shift @F;    # take first element off of @_
   $_.=pop @F       # idem for last; if @F is empty, undef is appended
}

s@(\*|/)\1+@\1@g;   # replace 2 or more '*' or '/' with just one: *1 and /1 = nop
s@^[*/]@1$&@;       # if expression starts with * or / prepend a 1
s@\D$@$&1@;         # if expression doesn't end with a number, append 1
s@\D@$& @g;         # eval doesn't like '++1': add spaces after operators
$_ = eval           # set $_ to 3v1l, so the `-p` will print the new value

analisi

Inserisci quanto sopra in un file chiamato 114.ple lo script di test sottostante in un file accanto ad esso:

%test = (
    '1+1+1+1+1' =>   23,
    '1*3/2+4-5' => -255,
    '1+2-3+12-5'=>  -19,
    '2*2*2*2*2' =>  968,
    '17/2'      =>  127,
    '--/-1-2-'  =>   -2,
    '**2*'      =>    2,
    '++1++'     =>    1,
    '/2/'       =>  0.5,
    '10/'       =>   '',
);

printf "%-20s -> %5s: %5s\n", $_, $test{$_}, `/bin/echo -n '$_' | perl -pF// 114.pl`
for keys %test;

Eseguendolo emette:

++1++                ->     1:     1
**2*                 ->     2:     2
17/2                 ->   127:   127
10/                  ->      :
1+1+1+1+1            ->    23:    23
1*3/2+4-5            ->  -255:  -255
2*2*2*2*2            ->   968:   968
1+2-3+12-5           ->   -19:   -19
--/-1-2-             ->    -2:    -2
/2/                  ->   0.5:   0.5

Si noti che 1/0provoca una divisione per errore zero: gli evaloutput undef, che è rappresentato dalla stringa vuota.

JavaScript ES6, 105 106

Modifica Salvato 1 byte thx @Kenney

t=>eval("for(t=[...t],p=o='';c=t.reverse().pop();p=c)o+=p<'0'?(c=='/'|c<'+'||' ')+c:c;eval(p<'0'?o+1:o)")

// Less golfed
t=>{
  for(t = [...t], p = o = '';
      c = t.reverse().pop();
      p = c)
    o += p<'0' 
     ? (c=='/' | c=='*' || ' ')+c  // '1' or ' '
     : c;
  return eval(p<'0' ? o+1 : o)
}

Test snippet

f=t=>eval("for(t=[...t],p=o='';c=t.reverse().pop();p=c)o+=p<'0'?(c=='/'|c<'+'||' ')+c:c;eval(p<'0'?o+1:o)")

console.log=x=>O.innerHTML+=x+'\n'

function test() { console.log(I.value + ' -> '+f(I.value)) }

;['1+1+1+1+1', '1*3/2+4-5', '1+2-3+12-5', '2*2*2*2*2',
  '17/2', '--/-1-2-', '**2*', '++1++', '/2/', '10/' ]
.forEach(t=>console.log(t+' -> '+f(t)))

Your test <input id=I><button onclick="test()">-></button>
<pre id=O></pre>