デームス、数学をしてください!


19

操作の順序であるPEMDASは、数学の基本的なルールであり、どの順序の操作を実行する必要があるかを示します。

「括弧、指数、乗算と除算、加算と減算」

問題は、PEMDASはあまり汎用性がないということです!別の順序で実行したい場合はどうしますか?括弧をいじらないので、括弧のある場所(最初)に保持します。

2つの引数を取るプログラムを作成します。

  • 操作が続く順序を示す文字列。いくつかの例は"DAMES""SAD, ME""ME SAD""MEADS"。はい、順序を覚えやすくするため、スペースとカンマは問題ありません。
    • チャットでの次の提案:スペースとカンマのサポートはオプションになりました。
    • いずれかの文字が欠落している場合、またはそこにあるべきではない追加の文字がある場合、入力を無効とみなし、好きなように扱うことができます。
  • 評価する必要のある文字列、または式を含む式。

式の結果を10進数または整数として返します。答えが整数でない場合は、10進数として返される必要があります。

ルール:

  • ご使用の言語で簡単な場合は、2つの入力引数を1つに結合してもかまいません。
  • 文字列である必要はありませんが、文字が必要です。Additionを1、Divisionを2などに置き換えることはできません。
  • 最初の入力を選択できます。
  • 式は右から左に評価されます左から右にれます。(ルールの変更。これとは逆の最初の12時間の投稿ポスターは受け入れられます)。
  • 操作では次の記号を使用します( ) ^ * / + -。たとえば、追加の¤代わりに使用することはできません+
  • 入力式のスペースは入力として無効です
  • 単項+/-は、+または-の直後に続く場合、入力として無効です。3+-2無効な入力と見なしてください。好きなように扱うことができます(エラーを生成する必要はありません)。場合+または-プラスまたはマイナス以外の演算子を次の、それはいつものように扱われます:3*-3 = -9sin(-2)=-0.909
  • プログラムは厳密に文字に従う必要が"EMDAS", 1-3+4 => -6あり"EMDSA", 1-3+4 => 2ます。

例:

Input:   "EMDAS", "3+6*2/4-1"   // -> 3+12/4-1 -> 3+3-1 -> 6-1 -> 5
Output:  5

Input:   "DAMES", "3+6*2/4-1"   // -> 3+6*0.5-1 -> 9*0.5-1 -> 4.5-1 -> 3.5
Output:  3.5

Input:   "SAD, ME", "3+6*2/4-1"  // -> 3+6*2/3 -> 9*2/3 -> 9*0.66667 -> 6   
Output:  6

Input:   "ME ADS", "3+5^4/2-3*2 // -> 3+5^4/2-6 -> 3+625/2-6 -> 628/2-6 -> 314-6 -> 308
Output:  308

Input:   "AM EDS", "4*3-sin(0.5^2)*3+1" // -> 4*3-sin(0.5^2)*4 -> 12-sin(0.5^2)*4 -> 4*3-(4*sin(0.5^2)) -> 12-(4*sin(0.5^2)) -> 12-(4*sin(0.25)) -> 12-(4*0.24740) -> 12-0.98961 -> 11.01038
Output:  11.01038

Input:   "DAMES", "4-5-6"   // -> (4-5)-6 -> = -7  
Output:  -7                  // NOT: -> 4-(5-6) -> 4-(-1) -> 5

注、乗算を示すために括弧が追加されていることに注意してください 4*sin(0.5^2)がべき乗の前に評価される。

これはコードゴルフなので、バイト単位の最短コードが勝ちます。


2
まったく同じというわけではありませんが、この課題は別の操作の順序に変更することに関するものであり、似たようなことをするというアイデアが好きになったインスピレーションでした。Haskellの答えはおそらくこの質問に答えるために作り直されると思います...厳密な複製かどうかはわかりませんが、演算子を直接変更するネイティブの能力なしでこの挑戦を行うというアイデアはとても好きです!
ドムヘイスティングス

2
関数のボーナスは削除されましたが、例にはまだsin()があります。
edc65

前述の課題よりもやや悪であり、重複するものとして争うつもりはありません(ただし、オリジナルへのリンクをいただければ幸いです)。しかし、The 2560の邪悪な監督が@Stewie Griffinに他ならないことは誰にとっても明白です。私は言わなければならない、私は驚かない。
ジェイク

英国では、学校BODMASBIDMAS学校でよく教えられます。B=括弧、OまたはI=順序またはインデックス。
BadHorsie

されるp必要?例にはありません
-ev3commander

回答:


7

JavaScript(ES6)349 387 400

...まだゴルフ可能

私のこの古いパーサーは時々便利です-(すでに他の2つの課題で使用されています)

E=
(d,x,W=[],Q=['_'],h={'(':1,_:8,')':7},z=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());Q.push(q,n)})=>([...d].map(l=>h[l='+-/*^'['ASDME'.search(l)]]=(d+=!!l),d=1),(x+')').replace(/\D|\d+/g,t=>(u=~~h[t])-1?u-7?u?z&&t=='-'?z=-z:C(t,z=1):(W.push(z*t),z=0):Q.pop(Q.pop(C(t),z=0)):z=!!Q.push('_')),W.pop())

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

console.log(E('MDASE','3+4*5^2'))
console.log(E("EMDAS", "3+6*2/4-1")) // 5
console.log(E("DAMES", "3+6*2/4-1")) //3.5
console.log(E("SAD, ME", "3+6*2/4-1")) // 6
console.log(E("ME ADS", "3+5^4/2-3*2")) // 308
console.log(E("AM EDS", "4*3-sin(0.5^2)*3+1")) // 11.01038 sin not supported
console.log(E("DAMES", "4-5-6")) // -7

// MORE READABLE
U=(d,x,W=[],Q=['_'],h={'(':1,_:8,')':7},z=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());
    Q.push(q,n)
  }
)=>(
  [...d].map(l=>h[l='+-/*^'['ASDME'.search(l)]]=(d+=!!l),d=1),
  (x+')').replace(/\D|\d+/g,t=> 
     (u=~~h[t])-1
       ?u-7
         ?u
           ?z&&t=='-'?z=-z:C(t,z=1)
           :(W.push(z*t),z=0)
         :Q.pop(Q.pop(C(t),z=0))
       :(Q.push('_'),z=1)
  ),
  W.pop()
)
<pre id=O></pre>

非ゴルフ

Evaluate=(oprec,expr)=>
{
  var tokens = expr.match(/\D|\d+/g).concat(')')
  var t,a,b,v, SignV
  var vstack=[]
  var ostack=['_']
  var op={ '(':8, _: 1, ')':2}
  oprec.match(/\w/g).map((l,p)=>op['+-/*^'['ASDME'.search(l)]]=7-p)
  var OPush=o=>ostack.push(o)
  var OPop=_=>ostack.pop()
  var VPush=v=>vstack.push(v)
  var VPop=v=>vstack.pop()

  var Scan=i=>
  {
    SignV = 1
    for (; t=tokens[i++]; )
    {
      if (t == '(')  
      {
        OPush('_')
        SignV = 1
      }
      else if (t == ')')
      {
        CalcOp(t);
        OPop();
        OPop();
        SignV = 0
      }
      else if (op[t])
      {
        if (SignV && t=='-')
          SignV = -SignV
        else
          CalcOp(t), SignV = 1
      }  
      else
      {
        VPush(SignV*t)
        SignV=0
      }
    }
  }
  var CalcOp=nop=>
  {
    for (; op[po = OPop()] >= op[nop];)
      b=VPop(), a=VPop(), CalcV(a,b,po);
    OPush(po), OPush(nop);
  }
  var CalcV=(a,b,o)=>
  {
//    console.log('CV',a,b,o)
    if (o=='+')
      a+=b
    if (o=='-')
      a-=b
    if (o=='*')
      a*=b
    if (o=='/')
      a/=b
    if (o=='^')
      a=Math.pow(a,b)
    VPush(a)
  }
  Scan(0)

  return VPop()
}

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

console.log(Evaluate('MDASE','3+4*5^2'))
console.log(Evaluate('EMDAS','3+6*2/4-1')) // 5
console.log(Evaluate("DAMES", "3+6*2/4-1")) //3.5
console.log(Evaluate("SAD, ME", "3+6*2/4-1")) // 6
console.log(Evaluate("ME ADS", "3+5^4/2-3*2")) // 308
console.log(Evaluate("AM EDS", "4*3-sin(0.5^2)*3+1")) // 11.01038 sin not supported
console.log(Evaluate("DAMES", "4-5-6")) // -7
<pre id=O></pre>


のスペース(t=>t=='('?(z=1, Q.push('_'))をすべての改行とともに削除できると思います。
コナーオブライエン

1
@CᴏɴᴏʀO'Bʀɪᴇɴはそれに取り組んでいます。ありがとう
-edc65

私はあなたが変えることができると思うMath.pow(a,b)a**b
KritixiのLithos

はい@KritixiLithosしかし、それはもうES6ではないでしょう
edc65

6

R 3.3.2:209 196 187 177バイト

考え方は、非算術演算子<、&、|、〜、?を「誤用」することです。優先順位がわかっている場所(参照?Syntax Rを -オーバーライドの前に;))、指定された算術演算子でオーバーライドします。マッピングは、操作の望ましい順序に従って行われます。

入力内のスペースとコンマサポートされていません

ゴルフバージョン

f=function(a,b){s=substr;l=list(E='^',M='*',D='/',A='+',S='-');q="<&|~?";for(i in 1:5){x=s(q,i,i);y=l[[s(a,i,i)]];assign(x,.Primitive(y));b=gsub(y,x,b,,,T)};eval(parse(text=b))}

非ゴルフとコメント:

f = function(a,b) {
  s = substr
  # All arithmetic operators
  l = list(E = '^', M = '*', D = '/', A = '+', S = '-')
  # Some non-arithmetic R operators in descending precedence
  q = "<&|~?"
  for (i in 1:5) {
    # The substituted symbol
    x = s(q, i, i)
    # The original operator which has to be substituted
    y = l[[s(a, i, i)]]
    # Substitute the operator for the R interpreter
    assign(x, .Primitive(y))
    # Substitute the operator in the input string
    b = gsub(y, x, b, , , T)
  }
  # Parse and evaluate
  eval(parse(text = b))
}

例:

> f("EMDAS", "3+6*2/4-1")
[1] 5
> f("DAMES", "3+6*2/4-1")
[1] 3.5
> f("SADME", "3+6*2/4-1")
[1] 6
> f("MEADS", "3+5^4/2-3*2")
[1] 308
> f("AMEDS", "4*3-sin(0.5^2)*3+1")
[1] 11.01038
> f("DAMES", "4-5-6")
[1] -7
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.