Інтерпретувати StackyMath!

14

Час для вас реалізувати мою нову мову на основі стека! Це називається StackyMath. Це буде мова на основі стека з 8 операціями над стеком та способи додавання чисел до стеку.

Перелік операцій:

  • /: Відділ. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек.
  • *: Множення. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек
  • -: Віднімання. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек
  • +: Доповнення. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек
  • ^: Експоненція. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек
  • %: Модуло. Виконується на верхніх 2 числах стека. Відсуває результат назад на стек
  • !: Факторський. Виконується на верхньому номері на стеку. Відсуває результат назад на стек
  • D: Дублюйте верхній номер у стеці

Операції, визначені псевдокодом:

  • /: push(pop divided by pop)
  • *: push(pop times pop)
  • -: push(pop minus pop)
  • +: push(pop plus pop)
  • ^: push(pop to the pop)
  • %: push(pop mod pop)
  • !: push(factorial pop)
  • D: t = pop; push(t); push(t)

Як натиснути числа на стек:

Додавання чисел до стеку досить просто, просто покладіть необроблений номер у свою програму там, де вам це потрібно. Якщо вам потрібно помістити кілька стеків у стек, ви можете розділити їх комою ( ,). Вашій програмі не потрібно буде обробляти -цифри на вводі. Якщо користувач хоче одного, він повинен натиснути число, яке вони хочуть, заперечувати, нуль і- . Числа у вході програми також обмежені додатними цілими числами.

Вхід:

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

Вихід:

Ваша програма повинна надрукувати номер у верхній частині стека.

Випадки помилок:

  • Якщо програма намагається перевернути стек, слід надрукувати StackUnderflowException!!!.
  • Якщо ви розділили нуль, надрукуйте DivisionByZeroException!!!
  • Якщо число, яке перевищує 64 біт, або під час виконання програми, або обробляючи номер на вводі, надрукуйте NumberOverflowException!!!
  • Якщо якимось чином ви отримаєте від’ємне число у верхній частині стека і вам потрібно зробити фактор, надрукуйте NegativeFactorialException!!!
  • Якщо у вас є номер із плаваючою комою на вершинах стека, і наступна операція є факторною, друкуйте FloatingFactorialException!!!
  • Якщо на стеку немає номерів, коли програма закінчується (тобто програма була порожньою), друкуйте EmptyProgram!!!

Примітки:

  • Усі вихідні помилки до повинні мати yo std помилку або найближчий еквівалент.
  • Усі числа обмежені 64-бітовою плаваючою точкою.

Приклади програм:

50,47*                 -> 2350
50,47/                 -> 0.94
100,8!                 -> 40320  
100D*                  -> 10000
!                      -> StackUnderflowException!!!
5,2/!                  -> FloatingFactorialException!!!  
4,3!2*/                -> 3 
654,489,48,43/5*7D+-*% -> 77.68749999999909
                       -> EmptyProgram!!!

(Я можу додати більше, якщо потрібно)

code-golf  math  interpreter  stack 
— Дж. Аткін
джерело
3
Якби не випадки помилок, Vitsy міг би це зробити природним шляхом (крім перетворення !на F).
— Аддісон Кримп
Я зрозумів, що частково тому я їх включив.
— J Atkin
3
Ваш дещо ширший за обсягом, хоча може бути сумнівом, що його дублікат: codegolf.stackexchange.com/questions/221/…
— Digital Trauma
Нічого, я забув про це. Але я не думаю, що вони обдурені, оскільки вам доведеться обробляти помилки, і в моїх визначено більше операторів.
— Дж. Аткін
654,489,48,43/5*7D+-*%повинен повернутися 77.6875. ( 43/48*5-(7+7)повинен бути (7+7)-43/48*5)
— користувач81655

Відповіді:

4

Рубі, 412 410 404 392 380 377 символів

def e m,x='Exception';warn m+x+?!*3;exit;end
def o;e'StackUnderflow'if$*==[];$*.pop;end
u=->n{e'DivisionByZero'if n.infinite?;e'NumberOverflow'if n>2**64;$*<<n}
f=->n{e'NegativeFactorial'if n<0;e'FloatingFactorial'if n.to_i<n;n<2?1:f[n-1]*n}
gets.gsub(/(\d+)|([+*\/%^-])|(!)|D/){$1?u[$1.to_f]:$2?u[eval"o#{$2>?A?:**:$2}o"]:$3?u[f[o]]:u[x=o]+u[x]}
e'EmptyProgram',''if$*==[]
p o

Це звичайна версія точності з використанням Float . Точність результату така, як у зразку коду, але числове виявлення переповнення не є точним.

Проба зразка:

bash-4.3$ ruby StackyMath.rb <<< '654,489,48,43/5*7D+-*%'
77.68749999999909

Рубі, 378 377 символів

def e m,x='Exception';warn m+x+?!*3;exit;end
def o;e'StackUnderflow'if$*==[];$*.pop;end
u=->n{e'NumberOverflow'if n>2**64;$*<<n}
f=->n{e'NegativeFactorial'if n<0;e'FloatingFactorial'if n.to_i<n;n<2?1:f[n-1]*n}
gets.gsub(/(\d+)|([+*\/%^-])|(!)|D/){$1?u[Rational$1]:$2?u[eval"o#{$2>?A?:**:$2}o"]:$3?u[f[o]]:u[x=o]+u[x]}rescue e'DivisionByZero'
e'EmptyProgram',''if$*==[]
p o.to_f

Це високоточна версія з використанням Rational . Точність результату не завжди така, як у зразковому коді, але числове виявлення переповнення точно.

Проба зразка:

bash-4.3$ ruby StackyMath-hi.rb <<< '654,489,48,43/5*7D+-*%'
77.6875
— маневреність
джерело
3

JavaScript (ES6), 430 байт

422 байти з ES7 шляхом зміни Math.pow(2,2)на2**2

e=m=>{throw alert(m)};u=prompt();u?alert(eval('u.match(/\\d+|[^,]/g).map(o=>s.push(t=o=="/"?(b=p(a=2))?a/b:e`DivisionByZero43*"?2*23-"?2-23+"?2+23%"?2%23^"?Math.pow(2,2)3D"?s.push(r=2)&&r3!"?eval("for(r=i=2;i<0?e`Negative54:i%1?e`Floating54:--i;)r*=i;r"):+o)&&t==Infinity&&e`NumberOverflow4,s=[],p=_=>s.length?s.pop():e`StackUnderflow4);t'.replace(/[2-5]/g,x=>[,,'p()',':o=="','Exception!!!`','Factorial'][x]))):e`EmptyProgram!!!`

Пояснення

Використовує evalдля заміни певних поширених фраз. Без волчків і без evalцього виглядає так:

e=m=>{throw alert(m)};                           // e = throw error, alert displays
                                                 //     message, throw stops execution
u=prompt();                                      // u = received input
u?alert(                                         // display the result
  u.match(/\d+|[^,]/g)                           // get array of numbers and operators
    .map(o=>                                     // iterate over operators
      s.push(t=                                  // t = last pushed value

        // Execute operator
        o=="/"?(b=p(a=p()))?a/b:                 // make sure argument B is not 0
          e`DivisionByZeroException!!!`:
        o=="*"?p()*p():
        o=="-"?p()-p():
        o=="+"?p()+p():
        o=="%"?p()%p():
        o=="^"?Math.pow(p(),p()):
        o=="D"?s.push(r=p())&&r:
        o=="!"?eval("                            // eval to enable for loop in ternary
          for(                                   // no factorial in JS so do this manually
            r=i=p();
            i<0?e`NegativeFactorialException!!!` // check for errors
              :i%1?
                e`FloatingFactorialException!!!`
                :--i;
          )
            r*=i;
          r"):                                   // return r
        +o                                       // if not an operator cast as a number
      )&&t==Infinity&&                           // JS turns anything over 64 bit float
        e`NumberOverflowException!!!`,           //     max value into Infinity
      s=[],                                      // s = stack array
      p=_=>s.length?s.pop():                     // p = check stack then pop
        e`StackUnderflowException!!!`
    )&&t                                         // return top stack element
  ):e`EmptyProgram!!!`                           // error if input length is 0
— користувач81655
джерело
Якщо ви хочете оновити ES7, ви можете використовувати оператор ES7 зведення в ступінь , щоб замінити Math.pow(p(),p())з p()**p().
— usandfriends
1
@usandfriends Я думав про це, але це означало, що він не працюватиме в моєму браузері, тому я його покинув. : P Я додам записку про це.
— user81655
1

Groovy, 718 байт. Назад!

Може також розмістити мій імпульсний гольф. Знайомтесь з моєю великою стіною коду:

g='Exception!!!'
a={System.err.print(it);System.exit(1)}
b=new Stack()
c={b.push(it)}
v=2d**64d
d={b.pop()}
e={if(b.size()<it)a('StackUnderflow'+g)}
f={a('NumberOverflow'+g)}
h={e(2)
c(Eval.xy(d(),d(),"x$it y"))
if(b.peek()>v)f()}
k={i->if(i<0)a('NegativeFactorial'+g)
if(Math.abs(i-(i as long))>1E-6)a('FloatingFactorial'+g)
(2..i).inject{x,y->(v/x<y)?f():x*y}}
l=['/':{e(2)
m=d()
n=d()
if(n==0)a('DivisionByZero'+g)
c(m/n)},'!':{e(1)
c(k(d()))},'D':{e(1)
c(b.peek())}]
System.in.newReader().readLine().findAll(~/\d+|[^,]/).each{x->if(x.matches(/\d+/))try{c(x as double)}catch(Exception e){f()}
else if("+-*%^".contains(x))h(x.replace('^','**'))
else l[x]()}
if(b){o=d()
if(Double.isInfinite(o))f()
println o}else a('EmptyProgram!!!')

Безголівки:

error = {System.err.print(it);System.exit(1)}

stack = new Stack()
maxVal = 2d**64d

push = {stack.push(it)}
pop = {stack.pop()}

checkAtLeast = {if (stack.size() < it) error('StackUnderflow'+exception)}
numberOverflow = {error('NumberOverflow'+exception)}

exception = 'Exception!!!'

def dArgOp(i) {
    checkAtLeast(2)
    push(Eval.xy(pop(), pop(), "x$i y"))
    if(stack.peek() > maxVal) numberOverflow
}

factorial = {i->
    if (i < 0)
        error('NegativeFactorial'+exception)
    if (Math.abs(i - (i as long)) > 1E-6)
        error('FloatingFactorial'+exception)
    (2..i).inject {acc, it ->
        (maxVal/acc < it)?numberOverflow():acc*it
    }
}

ops = [
'/' : {
    checkAtLeast(2)
    first = pop()
    second = pop()
    if (second == 0)
        error('DivisionByZero'+exception)
    push(first / second)
},
'!' : {
    checkAtLeast(1)
    push(factorial(pop()))
},
'D' : {
    checkAtLeast(1)
    push(stack.peek())
}]

input = System.in.newReader().readLine()
tokens = input.findAll(~/\d+|[^,]/)

tokens.each {
    print "current token: $it  \t stack before eval: $stack "
    if (it.matches(/\d+/))
        try {
            push(it as double)
        } catch (Exception e) {
            numberOverflow()
        }

    else if ("+-*%^".contains(it))
        dArgOp(it.replace('^','**'))
    else
        ops[it]()
    println "result: ${stack.peek()}"
}

if (stack) {
    top = pop()
    if (Double.isInfinite(top))
        numberOverflow()
    println top
} else
    error('EmptyProgram!!!')

Редагувати 1: зберегти ~ 15 байт завдяки @Doorknob
Редагувати 2: скинути ~ 130 байт з ще кількома хитрощами

— Дж. Аткін
джерело
Я не знаю Groovy, але у вас, здається, є багато зайвого простору. Наприклад, навколо операторів, після for/ ifтощо
— Doorknob
Ну, щойно помітили багато інших місць, щоб видалити пробіл. Дякую за пораду.
— J Atkin
Ви можете використовувати System.in.textзамість System.in.newReader().readLine().
— спагето
Не зовсім. .textжадібний і доки дані в читальнику не повернуться.
— Дж. Аткін
Правильно, але це код-гольф. Це не велика справа, якщо людям доведеться вводити Control-D після їх введення.
— спагето
1

Цукерки , 298 348 392 байт

Хоча Candy заснований на стеці, я не впевнений, що насправді допомогло ...

&{|"EmptyProgram!!!\n"(;).}(=bYZay0=zx4k"!%*+,-/D^"(iYe{Z=x})aYb=z=ya=X{Y{cZ0=yza}b212202221(i=ZXe{y})a0=zcY0j{XjZ{|D1b#64R(=c2*)c>{b"NumberOverFlow"(;)i}}|i}aZ{(=)"Exception!!!\n"(;).}0=yz|A#48-Z#10*+=z1=y})c?(=).@0&<{1|b"StackUnderflow"(;)c0}.@1~ALe{A0<{b"Negative"(;)i|1bAR(=cA*)}|b"Floating"(;)i}Z{b"Factorial"(;)}.@2W%.@3*.@4+@5.@6W-.@7WD{/|b"DivisionByZero"(;)i}.@8~A.@9=xK=y=1bA_(cX*).

Відформатований трохи розкриває трохи структури:

&{|"EmptyProgram!!!\n"(;).}
(=bYZay0=zx4k
  "!%*+,-/D^"
  (iYe{Z=x})
  aYb=z=ya=X
  {
    Y{cZ0=yza}b
    212202221(i=ZXe{y})
    a0=zcY0j
    {XjZ{|D1b#64R(=c2*)c>{b"NumberOverFlow"(;)i}}|i}
    aZ{(=)"Exception!!!\n"(;).}
    0=yz|A#48-Z#10*+=z1=y
  }
)c?(=).
@0&<{1|b"StackUnderflow"(;)c0}.
@1~ALe{A0<{b"Negative"(;)i|1bAR(=cA*)}|b"Floating"(;)i}Z{"Factorial"(;)}.
@2W%.@3*.@4+@5.@6W-.@7WD{/|"DivisionByZero"(;)i}.@8~A.@9=xK=y=1bA_(cX*).

Фактична математика відбувається на двох останніх рядках. Туди веде стіл стрибків на третьому рядку.

— Дейл Джонсон
джерело
Данг, я бачу, що я пропустив DivisionByZero, NegativeFactorial і Overflow. Я просто розглядав тестові випадки!
— Дейл Джонсон
Ого, це класно. Мені може знадобитися шукати цукерки.
— Дж. Аткін
Я все ще працюю над тим, як саме визначити переповнення.
— Дейл Джонсон
Насправді у мене була така ж проблема у моїй відповіді. Дивіться коментарі нижче моєї відповіді.
— J Atkin
Виправлено Переповнення зараз. Я використовував той же підхід, що і Ruby, який просто порівняти з 2 ^ 64 в кінці кожної операції.
— Дейл Джонсон
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.