Crie um programa que resolva uma expressão matemática usando os elementos de lados alternados da expressão. A maneira como isso é feito é que, em vez de ler da esquerda para a direita, você lê o primeiro caractere, depois o último, depois o segundo, depois o penúltimo, etc. Isso fornecerá uma nova expressão que você deverá avaliar e enviar.

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

Exemplo:

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

Se a expressão não «funcionar», a 1deve ser inserida nas posições necessárias para fazê-la funcionar.

Alguns exemplos provavelmente o ilustrarão melhor:

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

Os operadores que devem ser suportados são + - * /. Não haverá parênteses. Regras matemáticas normais e "sintaxe" são usadas, portanto, por exemplo **, não significa exponenciação. a++++1é equivalente a a+1(ou seja, estilo MATLAB, não C ++).

Caso haja alguma dúvida, algumas operações válidas são:

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

Embora todos os itens a seguir não sejam válidos. É mostrado com o que eles devem ser substituídos:

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

Regras:

• O código pode ser uma função ou um programa completo
• A entrada pode ser STDIN ou argumento de função
• A entrada deve ser uma expressão matemática válida, sem aspas ''ou"" .
• A saída deve ser a resposta para a nova expressão, como um número inteiro, decimal ou uma fração simplificada.
• Pelo menos três dígitos após o ponto decimal devem ser suportados. Então 1/3 = 0.333não 0.33. 0.333333333é aceito.
• ans = ... é aceito.
• Novas linhas e espaços iniciais e finais são aceitos.
• A entrada será apenas números inteiros
• A divisão por zero pode resultar em erro, NaN, Inf etc. A saída de um número não é aceita.

Como sempre, o código mais curto em bytes vence. Um vencedor será selecionado uma semana a partir do dia em que o desafio foi lançado. As respostas postadas mais tarde ainda podem ganhar se forem mais curtas que o líder atual.

Perl, 108 100 bytes

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

O código é de 96 bytes, mais 4 para o argumento da linha de comandos -pF//, em que

• -pinserções while (<>) { .. } continue { print }e
• -F//divide a entrada e a coloca @F.

Observe que a entrada não deve ter uma nova linha à direita; portanto, use /bin/echo -n 'formula' | perl ...

Menos golfe:

$_='';              # 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

Teste

Coloque o acima em um arquivo chamado 114.ple o script de teste abaixo em um arquivo próximo a ele:

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

Em execução, ele produz:

++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

Observe que 1/0causa um erro de divisão por zero: as evalsaídas undef, representadas pela sequência vazia.

JavaScript ES6, 105 106

Editar Salvo 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)
}

Snippet de teste

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>