オペレーターの優先順位:どのくらい間違っている可能性がありますか?


65

式があるとしましょう:

9 * 8 + 1 - 4

この式は、演算子の優先順位に応じて、6つの異なる方法で解釈できます。

(((9 * 8) + 1) - 4) = 69 (* + -)
((9 * 8) + (1 - 4)) = 69 (* - +)
((9 * (8 + 1)) - 4) = 77 (+ * -)
(9 * ((8 + 1) - 4)) = 45 (+ - *)
((9 * 8) + (1 - 4)) = 69 (- * +)
(9 * (8 + (1 - 4))) = 45 (- + *)

私が開発者であり、優先順位テーブルなどを覚える気がないので、推測するだけです。

この場合、誤差の最大マージンは45〜77で、これは32の差です。これは、私の推測が最大32だけオフになることを意味します。

挑戦

数字とからなる発現与え+-*/(整数除算)と%演算子の優先順位に基づいて、出力その発現のための最大および最小の可能な値の絶対差を、。

仕様書

  • 入力式には括弧が含まれず、すべての演算子は左結合です。
  • 入力式には非負の整数のみが含まれます。ただし、部分式は負の値に評価される場合があります(例:)1 - 4
  • 任意の妥当な形式で式を使用できます。例えば:
    • "9 * 8 + 1 - 4"
    • "9*8+1-4"
    • [9, "*", 8, "+", 1, "-", 4]
    • [9, 8, 1, 4], ["*", "+", "-"]
  • 入力には少なくとも1つ、最大10の演算子が含まれます。
  • 0による除算またはモジュロを含む式は無視する必要があります。
  • モジュロには負のオペランドが与えられないと仮定できます。

テストケース

9 * 8 + 1 - 4             32
1 + 3 * 4                  3
1 + 1                      0
8 - 6 + 1 * 0              8
60 / 8 % 8 * 6 % 4 * 5    63

1
@AndersKaseorg %2番目の例では、2つの異なる優先順位を持つものとして扱っているように見えます。
エソランジングフルーツ

1
「6」のうち3つは同じで、他の2つも同じです。6つのケースではなく、3つの実際のケースが残ります。
user207421

3
%演算子が負の数でどのように機能するか?CやPythonなどの方法ですか?
tsh

8
ただ、「and I'm lazy」の部分を説明に追加する必要はありません。あなたが開発者だと言うだけで十分です。:)
グリフォン-モニカの復活

1
@tshすべての動作。好きなことをしてください。私の鼻から悪魔を飛ばすことができます。
エソランジングフルーツ

回答:


27

パイソン2171の 156バイト

lambda a:max(e(a))-min(e(a))
u=')%s('
def e(a,t=u):
 try:b=[eval(a)]
 except:b=[]
 return sum([e('(%s)'%a.replace(o,t%o),u%t)for o in"+-*/%"if' '+o in a],b)

オンラインでお試しください!

使い方

各演算子を異なる数の外向きのかっこで囲み、さまざまな優先順位を(あらゆる方法で)シミュレートし、十分な内向きのかっこのペアを文字列全体にラップして、可能な式を取得しますeval。たとえば、

+)+(
*))*((
-)))-(((

我々が得る

9 * 8 + 1 - 4(((9 ))*(( 8 )+( 1 )))-((( 4)))= 77


or外側を移動してsum角括弧の層を削除することで2バイトを節約できます。sum([...],[])or[eval(a)]代わりにsum([...]or[[eval(a)]],[])
-Strigoides

@Strigoides sum引数が空でなくてもが空かもしれないので、それは同等ではないと考えていました。しかし、evalその場合は失敗しなければならないので実際には問題ありません。ありがとう。
アンダースカセオルグ

8

ゼリー、126バイト

「演算子の優先順位?括弧?Pah、誰がそれを必要としますか?」-オペレーターの優先課題にゼリーを使用することの課題。

⁾[]i$€Ḥæ%3+\¬œp¹Ḋ€
ǵḟØDO%9µÐṀṪɓœṣ⁹,ṚÑj@¥/
ǵVṾµ1ĿFḟØDḟ”-Lµ?ÐL
5Ḷx@€“]“[”ż⁸j/€,@y³Fɓ³i@€Ṁ’x@“[“]”jÇ
“+_×:%”Œ!Ç€µṾL_L’ỊµÐfV€ṢIS

オンラインでお試しください!

入力は、「1 + 2_3×4:5%6」などの文字列として取得されます。乗算では「*」ではなく「×」が使用され、除算では「/」ではなく「:」が使用され、減算では「-」ではなく「_」が使用されます。

仕組み プログラムは3つの部分に分かれています。異なる演算子優先順位のすべての式を生成し、それらを評価し、最大値と最小値の差を返します。

すべての式はコードで生成されます:

5Ḷx@€“]“[”ż⁸j/€,@y³Fɓ³i@€Ṁ’x@“[“]”jÇ (4) helper link: returns all outputs given a permutation. Input e.g. "_+:×%"
5Ḷx@€“]“[”           - repeat outer brackets to get ["",""],["]","["],["]]","[["],["]]]","[[["],["]]]]","[[[["]
          ż⁸j/€      - insert the operations in to get "_","]+[","]]:[[","]]]×[[[","]]]]%[[[["
               ,@    - turn this into a mapping equivalent to "_"↦"_","+"↦"]+[",":"↦"]]:[[","×"↦"]]]×[[[","%"↦"]]]]%[[[["
                 y³F - use this mapping to get the right number of outward brackets on each operation. e.g. "1]+[3]]]×[[[4"
ɓ³i@€Ṁ’x@“[“]”j      - add the right number of brackets to the end to get e.g."[[[1]+[3]]]×[[[4]]]"
               Ç     - this calls the link which evaluates the expression
“+_×:%”Œ!Ç€                          (5a) main link. Input e.g. "1+3×4"
“+_×:%”                                 - the string "+_×:%"
       Œ!                               - all permutations
         ǀ                             - apply link (4) to each permutation

リンクはこれで評価されます(おそらく別の構造で改善できます)。

⁾[]i$€Ḥæ%3+\¬œp¹Ḋ€      (1) Helper link: Outputs a list of expressions within brackets, e.g. "[[[1]+[3]]]×[[[4]]]"↦"[[1]+[3]]","[[4]]"
⁾[]i$€Ḥæ%3                 - map "[" to 2, "]" to -2, and any other character to 0.
          +\¬              - cumulative sum negated: 1s at characters not in brackets (includes opening brackets), 0s otherwise (includes closing brackets)
             œp¹           - partition the input, not including borders, based on the sum to get "[[[1]+[3]]","[[[4]]"
                Ḋ€         - remove opening brackets
ǵḟØDO%9µÐṀṪɓœṣ⁹,ṚÑj@¥/ (2) Return the input to this link with one of the expressions from (1) evaluated
ǵVṾµ1ĿFḟØDḟ”-Lµ?ÐL     (3) link called from part 1: Evaluates expressions
 µ  µ          µ?          - if:
     1ĿFḟØDḟ”-L            - the input contains no operators within brackets:         
  VṾ                         - evaluate this one expression with normal Jelly calculation and return to string
                           - otherwise:
Ç                            - evaluate one subexpression using link (2)
                  ÐL       - repeat this until a single output is determined

最大値と最小値の差は、リンク(5)のコードを使用して計算されます。

µṾL_L’ỊµÐfV€ṢIS (5b) determine difference between minimum and maximum
µ      µÐf        - filter out outputs involving division or modulo by 0. Determined with:
 ṾL_L’Ị           - actual numbers have their unevaled form Ṿ no more than one byte longer than the non-unevaled form.
          V€      - evaluate each of these valid numbers to get integers from strings
            Ṣ     - sort
             IS   - return the sum of all difference between consecutive elements.

4
おそらく私が今まで見た中で最も長いジェリーの回答(埋め込みデータなし)。よくやった!
キーガン

@KeyuGanより長いゼリーの回答が必要な場合は、この回答をご覧ください。圧縮せずに他の長いゼリーの答えを考えることはできません。
fireflame241

6

パイソン2235の 234 233 226バイト

-1バイト(および修正)Anders Kaseorgに感謝!

ステップヘンのおかげで-7バイト!

from itertools import*
def f(e,a=()):
 for o in permutations("+-*/%"):
	l=e[:]
	for c in o:
	 for i in range(len(l),0,-1):
		if l[i-1]==c:l[i-2:i+1]=["("+l[i-2]+l[i-1]+l[i]+")"]
	try:a+=eval(*l),
	except:0
 print max(a)-min(a)

オンラインでお試しください!


1
関数の送信は再利用可能でなければなりませんaリストではなくタプルにすることでこの問題を修正でき、そうすることで1バイトも節約できます(a=()a+=eval(*l),)。
アンデルスカセオルグ

ほら、TIL。ヒントをありがとう!
-notjagan

1
Python 2を使用しているため、インデント用にスペースとタブを交互に使用してバイトを節約できます(この場合、2スペース->タブ、3スペース->タブ+スペース、4スペース-> 2タブ)オンラインで試してください!
スティーブン

4

Haskell 582バイト

これは思ったほどうまくいきませんでした...

import Data.List
f x=case x of '+'->(+);'-'->(-);'*'->(*);'/'->div;_->rem
e _ s[]=s
e 1 s(')':x:a)|0<-(read$e 0""a),(x=='%'||x=='/')=""|""<-(e 0""s)=""|""<-(e 0""a)=""|0<3=show$(f x)(read$e 0""s)$read$e 0""a
e 1 s")"=e 0""s
e n s(')':a)=e(n-1)(s++")")a
e 0 s('(':a)=e 1 s a
e n s('(':a)=e(n+1)(s++"(")a
e n s(x:a)=e n(s++[x])a
n?s=take n$cycle s
a!b=e 0""(9?"("++(concat$zipWith(++)a(b++[[]]))++9?")")
c#b|l<-[read x|x<-map(c!)(a b),x/=""]=maximum l-minimum l
a c=transpose$map(\x->map((\(Just q)->q).lookup x)$map(\a->zipWith(\x y->(y,x?")"++y:x?"("))[1..5]a)$permutations"+-*%/")c

オンラインでお試しください!

長いプログラムをゴルフにしようとすると、単に悪いコードを書くようになります:(

HaskellでAndersのアルゴリズムを使用しようとしましたが、制御不能になりました

関数eは、evalの特定のケースに似ています。(#)は、整数と演算子の文字列を表す文字列のリストを受け取り、可能な最大値と最小値の差を返します。例えば

(#) ["9","8","1","4"] "*+-" => 32

1
あなたが名前を変更した場合###は、名前を変更できe(#):そうのように、(n#s)(x:a)=...
フルーツEsolanging

次の3つの一般的に使用される関数のエイリアスを作成すると、さらに6バイト節約できます。 r=read;j=zipWith;o=mapそして、それらの関数を文字エイリアスに置き換えます。
maple_shaft

また、582ではなく594バイトをカウントしています
。– maple_shaft

3

Pyth、45バイト

KS.nm.x.vj\ u.nm+*H/kHckHGd]s.iFQY.p_{eQ-eKhK

さらに多くの最適化を行うことができると確信していますが、これまでのところは気に入っています。

次のような入力を受け取ります[9, 8, 1, 4], ["*", "+", "-"]

オンラインでお試しください!


2
説明を追加できますか?
ジム

2

Mathematicaの、186の 164 159バイト

eMax@#-Min@#&[Fold[#//.{m___,x_,#2[[0]],y_,n___}:>{m,x~Last@#2~y,n}&,e,#]&/@Permutations@{"+"@Plus,"-"[#-#2&],"*"@Times,"/"@Quotient,"%"@Mod}/. 0/0|1/0->{}]

\[Function] 3バイトかかります。

いくつかの代替案(同じバイト数を維持)

#2-#&@MinMax[...] 交換する Max@#-Min@#&[...]

Head@#2 交換する #2[[0]]

http://sandbox.open.wolframcloud.comでオンラインで試してください:テストケース用に上記のコード( .... )[{60, "/", 8, "%", 8, "*", 6, "%", 4, "*", 5}]....置き換えて入力してください60 / 8 % 8 * 6 % 4 * 5。を押しShift + enterて評価します。


2

Javascript、280バイト

:整数の除算では、floor関数を使用して丸めます。つまり、負の数はゼロから切り捨てられます。

このソリューションは、この回答に基づいています

b=>(Math.max(...(f=(a,h="(",i=")",r=[...a[d="replace"](/[^-+*/%]|(.)(?=.*\1)/g,"")])=>(r[0]?(r.map((c,j)=>s=s.concat(f(h+a[d](RegExp("\\"+(n=r.concat()).splice(j,1),"g"),i+c+h)+i,h+"(",i+")",n)),s=[]),s):(a=eval(`(${a})`[d](/\(/g,"Math.floor(")))==a&&1/a?a:r))(b))-Math.min(...f(b)))

サンプルコードスニペット:

g=

b=>(Math.max(...(f=(a,h="(",i=")",r=[...a[d="replace"](/[^-+*/%]|(.)(?=.*\1)/g,"")])=>(r[0]?(r.map((c,j)=>s=s.concat(f(h+a[d](RegExp("\\"+(n=r.concat()).splice(j,1),"g"),i+c+h)+i,h+"(",i+")",n)),s=[]),s):(a=eval(`(${a})`[d](/\(/g,"Math.floor(")))==a&&1/a?a:r))(b))-Math.min(...f(b)))

for(k=0;k<5;k++)
  v=["9*8+1-4","1+3*4","1+1","8-6+1*0","60/8%8*6%4*5"][k],
  console.log(`g(${v}) = ${g(v)}`)


a / bケースをa / b | 0に置き換えて準拠させるのはどれくらい難しいでしょうか?
trlkly

@trlkly a/b|0は除算/モジュロ0エラーチェックを停止しますが、動作しMath.floor(a/b)ました
ハーマンL

2

Haskell、254バイト

import Data.List.Split
import Data.List
f s=(-)<$>maximum<*>minimum$permutations(zip"+-*/%"[p(+),p(-),p(*),c$div,c$mod])>>=(s!)
p=((pure.).)
c o a b=[o a b|b/=0]
s![]=[read s]
s!((x,o):y)=case splitOn[x]s>>=(!y)of[]->[];l->l?o
[a]?_=[a]
(a:b)?o=b?o>>=o a

オンラインでお試しください!

入力は4 + 5 * 2などの文字列全体です。操作のすべての順列を生成し、各順列で文字列を再帰的に分割します。リストモナドで0で除算をフィルタリングします。


(%)モジュラス演算子です。これは、左引数と右引数の間の除算演算の残りです。
maple_shaft

1

パイソン2262の 256 254バイト

from itertools import*
def r(s,o):
 try:
  while o in s:i=s.index(o)-1;s[i:i+3]=[`eval(''.join(s[i:i+3]))`]
  return s
 except:0
def f(s):
 u=[int(v[0])for v in [reduce(r,O,s.split(' '))for O in permutations('*/%+-')]if v!=None];return abs(max(u)-min(u))

オンラインでお試しください!


タブを使用してバイトを節約する:オンラインで試してみてください!
スティーブン

1
変更して1バイト節約 in [してin[(スペースは不要です)
ザカリー

1

PHP、316バイト

<?for(;$t++<54322;)count_chars($t,3)!=12345?:$p[]=$t;foreach($p as$x){for(list($z,$q)=$_GET,$b=1,$i=0;$y=strtr($x,12345,"/%*+-")[$i++];)while(-1<$k=array_flip($q)[$y]){$n=$k+1;if($b&=$z[$n]||ord($y)%10<6)eval("\$z[$k]=$z[$k]$y$z[$n]^0;");($s=array_splice)($z,$n,1);$s($q,$k,1);}$b?$r[]=$z[0]:0;}echo max($r)-min($r);

オンラインでお試しください!

Expanded
for(;$t++<54322;)
  count_chars($t,3)!=12345?:$p[]=$t;
foreach($p as$x){
  for(list($z,$q)=$_GET,$b=1,$i=0;$y=strtr($x,12345,"/%*+-")[$i++];)
    while(-1<$k=array_flip($q)[$y]){
      $n=$k+1;
      if($b&=$z[$n]||ord($y)%10<6)
        eval("\$z[$k]=$z[$k]$y$z[$n]^0;");
      ($s=array_splice)($z,$n,1);
      $s($q,$k,1);
    }
  $b?$r[]=$z[0]:0;
}
echo max($r)-min($r);

リースのケースは63です。1つの式の異なる部分で同じ演算子に異なる優先順位を与えることによる間違い
H.PWiz

0

Python 3、284バイト

編集:最後の例を評価することで何かが間違っているようです。明日調べます。

別のPythonの答え。他のみんなにゴルフをすることはできませんでしたが、私はそれを我慢できないほど長い間費やしました。

from itertools import*
def f(n,o):
 z=[]
 for p in permutations("+-*/%"):
  try:
   p,x,a=[*p],n[:],o[:]
   while(p):
    for i,d in enumerate(a):
     if d==p[0]:x[i+1]=str(eval(x[i]+d+x[i+1]));x.pop(i);a.pop(i)
    p.pop(0)
   z+=x
  except:0
 z=[*map(float,z)];return max(z)-min(z)

オンラインでお試しください!


1
while(p)なることができますwhile p保存された1バイトのために。
ザカリー

0

Clojure(+組み合わせ)、342 377 + 41 = 418バイト

バグのため+35バイト。

(fn[x y](let[l filter s first z #(l(fn[y]y)%)r(sort(z(for[e(q/permutations[+ - * quot mod])](try(loop[t e m y a x](if(=[]t)(s a)(let[j(s t)i(reverse(keep-indexed #(if(= j %2)%)m))](recur(rest t)(l #(not= j %)m)(loop[d 0 h a](if(=(count i)d)h(let[c(nth i d)f(inc c)](recur(inc d)(vec(z(assoc h c(j(nth h c)(nth h f))f nil)))))))))))(catch Exception _ nil)))))](-(last r)(s r))))

オンラインでお試しください!

この関数が機能するにuseは、clojure.math.combinatoricsライブラリ(41バイト)が必要です。

(use '[clojure.math.combinatorics :as q])

ニュアンス:

この関数は匿名関数です。つまり、使用するにはこれを行う必要があります。

((fn[x y]...) numbers operators)

また、私は言葉を使用しているquot代わりに/(Clojureのは、デフォルトで小数の割り算をするため)、そしてmod代わりに%

ゴルフされていないプログラム:

(defn precedence [numbers operators]
  (let [results
        (sort
          (for [permute (c/permutations [+ - * / mod])]
            (loop [p-temp permute
                  o-temp operators
                  n-temp numbers]
              (if (empty? o-temp) (first n-temp)
                (let [first-p (first p-temp)
                      indices (reverse (keep-indexed #(when (= first-p %2) %) o-temp))]
                  (recur
                    (rest p-temp)
                    (filter #(not= first-p %) o-temp)
                    (loop [ind 0
                          n-through n-temp]
                      (if (= ind (count indices)) n-through
                        (let [current-ind (nth indices ind)]
                          (recur
                            (inc ind)
                            (vec
                              (filter #(not (nil? %))
                                (assoc n-through
                                  current-ind (first-p (nth n-through current-ind) (nth n-through (inc current-ind)))
                                  (inc current-ind) nil)))))))))))))]
    (- (last results) (first results))))

「クロージャ+コンビナトリクス」と言うだけで、use声明を採点する必要はないと思います。
エソランジングフルーツ

@ Challenger5デフォルトで、The characters used to import the library will likely be counted codegolf.meta.stackexchange.com
questions / 10225 /

@KeyuGanあなたは正しいです-私はそのメタコンセンサスを誤解しました。コードに含めるrequire必要があり、その長さをバイトカウントに追加する必要があると思います。
エソランジングフルーツ

@ Challenger5したがって、バイトカウントに41バイトを追加する必要がありますか?OK。
-clismique

@ Qwerp-Derpはい、ただしインポートはコードの一部であり、ゴルフをすることができます。
エソランジングフルーツ

0

JavaScript(ES6)、210バイト

数字と演算子の配列として入力

k=>(m=n=-k,r=(o,k,j=0)=>{for(o||(m=m>k?m:k,n=n<k?n:k);q=o[j++];(q>'%'&q<'/'||z)&&r(o.slice(0,j-1)+o.slice(j),h))for(h=[...k],z=1;i=h.indexOf(q)+1;h.splice(i-2,3,eval(a=h[i-2]+q+h[i])|0))z*=h[i]})('+-*/%',k)|m-n

少ないゴルフ

k=>(
  m = n = NaN,
  r =(o, k, j=0) => {
    // try all operators in o
    for(;q = o[j]; j++)
    {  
      // q : current operator, 
      // look for q inside the expression to evaluate
      for(h = [...k], z = 1; i = h.indexOf(q) + 1;)
      {
        a = h[i - 2]
        b = h[i]
        z *= b // trace if any second operand is zero
        // subst subexpression with its value
        h.splice(i - 2, 3, eval(a + q + b) | 0)
      }
      // now all subexp involving current operator are evaluated
      // the result is ok if current operator is not % or /
      //  OR if no second operand was zero
      (q > '%' & q < '/' || z) && 
        // try again recursively
        // using the remaining operators and the remaining expression
        r(o.slice(0, j) + o.slice(j+1), h) 
    }
    // if no more operators to try, check max and min
    // k is an array with 1 element, can be used like a single number
    o || (
      m = m > k ? m : k, 
      n = n < k ? n : k
    )
  },
  r('+-*/%', k),
  m-n
)

テスト

var F=
k=>(m=n=-k,r=(o,k,j=0)=>{for(o||(m=m>k?m:k,n=n<k?n:k);q=o[j++];(q>'%'&q<'/'||z)&&r(o.slice(0,j-1)+o.slice(j),h))for(h=[...k],z=1;i=h.indexOf(q)+1;h.splice(i-2,3,eval(a=h[i-2]+q+h[i])|0))z*=h[i]})('+-*/%',k)|m-n

function update() {
  var input = I.value.match(/\d+|\S/g)
  var result = F(input)
  O.textContent = I.value + ' -> ' + result + ' (max:'+m+' min:'+n+')'
}

update()
<input id=I value="60 / 8 % 8 * 6 % 4 * 5" oninput='update()'>
<pre id=O></pre>

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.