Вступ

У дитинстві настає момент, коли ти думаєш, що ти освоїв додавання та множення, тоді хтось приходить і повідомляє, що

a * b + c = (a * b) + c! = a * (b + c),

і що це був не такий простий чи лінійний процес, як вас вчили раніше. Ви дізнаєтесь, що існує щось, що називається порядок операцій . Це дуже важливий спосіб збереження певного рівня узгодженості та виразів, не маючи дужок, що перешкоджають усьому.

Родова сюжетна лінія

Одного разу ти прокинешся під звуком паніки на вулицях. Екстремістська група під назвою " 2560 " (скорочення до "Організація проти порядку операцій", з дурним шестигранним поворотом) використовувала свої злі методи, щоб взяти під контроль всю ядерну зброю у світі. Вони тримають всю планету в заручниках, і вони мають простий попит: скасувати прийнятий порядок операцій або стикатися з викоріненням (дужки повинні підтримувати свій пріоритет). Нова система називається PSADME (дужки, віднімання / додавання, ділення / множення, експоненти), а вирази оцінюють справа наліво:

a - b - c = a - (b - c) = a + c - b

Минають дні, і перехід триває. Поки математики та фізики зайняті переписуванням своїх рівнянь, перед вченими-комп’ютерами стоїть завдання змінити моду, в якому математичні вирази інтерпретуються комп'ютерами. Ви належите до таємної повстанської програмуванні групи , яка ставить перед собою за мету заподіяти стільки борошна для нових глобальних повелителів - і, випадково, ви випадково обрана 2560 і поставлена завданням зробити програму розрахунку тесту.

Ваша місія

Для простоти всі надані числа будуть цілими числами, а обчислення дадуть цілі результати.

Правила та оцінка

• Програма повинна приймати введення довжиною до 128 символів - якщо ваша мова / платформа має меншу максимальну довжину введення, це прийнятна привід.
• Стандартні лазівки заборонені.
• Виграшний код буде обраний 18 листопада (4 тижні з цієї дати).
• Не соромтеся розміщувати код, який би не вважався гідним для гольфу. Це про веселощі. Якщо у вас є цікавий спосіб зробити це, але ви не можете його розіграти самостійно (або за характером вашого методу), ви можете все-таки опублікувати його.

Як завжди, виграючий код - це найменша кількість байтів, які мають деякі бонусні цінності:

• -5 для уникнення будь-якого використання символів у наданому виразі: + , - , ( , ) , ^ , * , /
• -5 для проведення обчислень потрібно 5 хвилин (але не більше 10 хвилин) для обчислення на стандартному комп'ютері, без того, щоб метод був очевидним (використовуючи годинник або непотрібні петлі); Мета полягає в тому, щоб переконати нових господарів у тому, що ви не намагаєтесь зірвати їх обчислення приреченості.
• - (5 + N) для прямого образливого повідомлення (довжиною N, не враховуючи провідної / кінцевої пробілів) про членів 2560, які слід писати просто перед вашим кодом, з деяким смішним поясненням того, чому це потрібно там. Якщо його видалити, код не повинен функціонувати правильно. Так, безкоштовні бали за розважальну цінність.

Приклади та пояснення

[program] 2 - 2 - 2
2

2 - (2 - 2) = 2

[program] (2 + 2 * 3 + 3) / 3 + 3
4

(4 * 6) / (3 + 3) = 4

[program] 3 + 2 + 1 ^ 3
216

(3 + 2 + 1) ^ 3 = 216

[program] -5^2
25

(-5) ^ 2 = 25

[program] 32 / 8 * 3 - 1
2

32 / (8 * (3 - 1)) = 32/16 = 2

Haskell, 134 байти

import qualified Prelude as P
infixl 6 ^
(^)=(P.^)
infixr 8 + 
(+)=(P.+)
infixr 8 - 
(-)=(P.-)
infixr 7 /
(/)=P.div
infixr 7 *
(*)=(P.*)

Перевизначення математичних операторів з новими виправленнями та пріоритетами. Зараз:

*Main> 32 / 8 * 3 - 1
2

GNU sed -r з розширенням exec, 398

s@ *\^ *@ ** @
:
s@\((-?[0-9]+)\)@\1@
t
s@(-?[0-9]+ - )+(-?[0-9]+ - -?[0-9]+)@\1(\2)@
t
s@(.*(^| |\())(-?[0-9]+ [-+] -?[0-9]+)(.*)@echo '\1'$((\3))'\4'@e
t
s@(-?[0-9]+ / )+(-?[0-9]+ / -?[0-9]+)@\1(\2)@
t
s@(.*(^| |\())(-?[0-9]+ [*/] -?[0-9]+)(.*)@echo '\1'$((\3))'\4'@e
t
s@(-?[0-9]+ \*\* )+(-?[0-9]+ \*\* -?[0-9]+)@\1(\2)@
t
s@(.*(^| |\())(-?[0-9]+ \*\* -?[0-9]+)(.*)@bash -c 'echo \1$[\3]\4'@e
t

Не особливо короткий, але роботу виконує.

sed добре для розбору пріоритету, але не виконує арифметики. Отже, ми використовуємо розширення GNU sed exec для sкоманди, щоб передавати необхідну арифметику оболонці.

Наразі передбачається, що всі оператори, за винятком того, що ^мають рівно один простір спереду і ззаду.

Тестовий вихід:

$ cat psadme.txt 
2 - 2 - 2
(2 + 2 * 3 + 3) / 3 + 3
3 + 2 + 1 ^ 3
-5^2
32 / 8 * 3 - 1
$ sed -rf psadme.sed psadme.txt 
2
4
216
25
2
$ 

JavaScript (ES6) 287 300

Редагування помилки виправлено (просто помилка друку, 6 повинно було бути 4) - Додано повне пояснення в кінці фрагмента

Редагувати 2 Знайшов деяке вдосконалення, працюючи над іншим завданням

Ще одна передача того ж аналізатора лише з деякою мінімальною різницею. (порівняйте з цим )

f=(x,W=[],Q=['('],z=1,h=p=>'+-*/^^))('.indexOf(p)>>1,C=n=>{for(;h(q=Q.pop())<h(n);W.push(q=='^'?Math.pow(a,b):eval(`a${q}b`)))a=W.pop(b=W.pop());z&&Q.push(q,n)})=>((x+')').replace(/\d+|\S/g,t=>t>'('?t>'('?~h(t)?z&&t=='-'?z=-z:C(t,z=1):(W.push(z*t),z=0):C(t,z=0):(Q.push(t),z=1)),W.pop())

// More readable
U=(x,W=[],Q=['('],z=1,
  h=p=>'+-*/^^))('.indexOf(p)>>1,
  C=n=>{
    for(;h(q=Q.pop())<h(n);
        W.push(q=='^'?Math.pow(a,b):eval(`a${q}b`)))
      a=W.pop(b=W.pop());
    z&&Q.push(q,n)
  }
)=>(
  (x+')')
  .replace(/\d+|\S/g,t=> 
       t>'('
       ?t>'('
       ?~h(t)
       ?z&&t=='-'?z=-z:C(t,z=1)
       :(W.push(z*t),z=0)
       :C(t,z=0)
       :(Q.push(t),z=1)
  ),
  W.pop()
)

// TEST
console.log=(...x)=>O.innerHTML+=x.join` `+'\n'

console.log(f('1 - 3 + 4')) // -6
console.log(f('2-2-2')) // 2
console.log(f('(2 + 2 * 3 + 3) / 3 + 3')) // 4
console.log(f('3 + 2 + 1 ^ 3')) // 216
console.log(f('-5^2')) // 25
console.log(f('32 / 8 * 3 - 1')) // 2

// Explained
X=(x,W=[],Q=['('],z=1,
  h=p=> // operator priority '+-:1, */:3, ^:5, ):7, (:9. If an operand then -1
     '+-*/^^))('.indexOf(p)>>1,
  C=n=>{ // Evaluate operators present on stack if they have upper priority, then push new operator on stack
    //console.log('Operand '+n)
    while( h(q = Q.pop()) < h(n) ) // pop operator from op stack and compare priority with current
    {
      // Pop operands from stack and push result
      b = W.pop();
      a = W.pop();
      r = q=='^' ? Math.pow(a,b) : eval('a'+q+'b')
      // console.log('Evaluate '+a+q+b+'='+r)
      W.push(r);
    }
    // if z == 0 do nothing, because the current operands are '(' and ')' that must be discarded
    // else Push again the last operator popped and the current one
    z && Q.push(q, n) // 
  }
)=>(
  (x+')')
  .replace(/[\d.]+|\S/g,t=> {
    //console.log('Q:'+Q,'W:'+W,'T:'+t,'U:'+h(t),'Z:'+z), // display status
    if (t == '(') 
    { // open parenthesis
      z = 1
      Q.push(t) // push a operator, its the highest priority
    }
    else if (t == ')')
    { //close parenthesis
      z = 0
      C(t) 
    }
    else if (h(t) < 0)
    { // operand
      W.push(z*t) // push operand with right sign
      z = 0 // set z to 0 to mark that we just pushed an operand, so next '-' (if present) is a binary operator 
    }
    else
    { // operator
      if (z && t=='-') // the minus is an unary operator (the only unary operator allowed is '-', '+' will not work)
        z =-z // change the sign
      else
        z = 1, // no unary minus
        C(t)
    }    
  }),
  W.pop() // return the value at top of operand stack
)

<pre id=O></pre>