助けて!電卓が誤動作します!


28

前書き

電卓の動作がおかしい。入力するときにが8表示されることがあり2ます。そして時々私がタイプするとき6それは表示する+。いくつかのボタンが混同されています!
誰が私がどちらを決定するのを手伝ってもらえますか?

チャレンジ:

入力:間違った方程式のリスト、正しい結果。

出力:交換される2つのボタン。

例:
入力は次のとおりです。

123    = 3
8423   = 252
4+4    = 8
4*7-10 = 417
9/3    = 3
42-9   = -36

そのために期待される出力は、次のとおり2*

どうして?2と*を入れ替えると、すべての方程式が正しいからです。

1*3    = 3
84*3   = 252
4+4    = 8
427-10 = 417
9/3    = 3
4*-9   = -36

チャレンジルール:

  • 入力は任意の合理的な形式にすることができます。スペースで区切られた単一の文字列にすることができます。文字列リストまたは-array。方程式のリストと正しい結果の別のリスト。あなたの電話。使用した入力形式を明記してください!
    注:これは-5--15-5- -15またはとしてテストケースを入力できることも意味します-5 - -15。ただし、結果の数値--は、スペースなしで入力するか、すべての数字の間にスペースを入れて入力する必要があります。テストケースは、それほど9119のように入力することができる91199 1 1 9(その理由は、91 19あなたが発見のためのスペースで案内することができるためである許可されていません- -)。そのため、スペースは(多少)オプションで許可されます。
  • 出力形式は、任意の合理的な形式にすることもできます。2文字にすることができます。単一の2文字の文字列。2つの文字を含む文字列リスト。あなたの電話。繰り返しますが、使用した出力形式を明記してください!
  • にマップされる個別の14の出力を使用でき0123456789+-*/ます。そのため、必要に応じて2つの異なる整数を出力することもできます(繰り返しますが、使用しているマッピングがある場合は指定してください)。
  • 整数のみをサポートする必要があります。そのため、1/8=0.125またはのようなテストケースはありません1/8=0
  • サポートする必要がある算術オペランド:加算(+); 減算(-); 乗算(*または×または·); 部門(/または÷)。(注:括弧で囲まれた文字は説明としてのみ追加されます。)
  • 負の数をサポートする必要があります。これは-、数式では数学的なオペランドまたは負のインジケータの両方として解釈できることを意味します。
  • あなたは、与えられた間違った方程式となって正しい式が常に有効である(そのようなものは存在しないと仮定することができ4-/2たり9+-+8など)。
  • 誤った入力式には0による除算が含まれる可能性がありますが、修正済みおよび予想される方程式には0による除算が含まれません。
  • 誤った入力式は、目的のボタンを元に戻した場合でも、すでに正しい可能性があります。
  • 与えられた入力式は、ボタンがスワップするのに無関係である可能性があります(4+4=8および9/3=3式のように、スワップされたボタン2および*)。
  • 特定のテストケースで実行できるスワップは常に1つだけであると想定できます。
  • 交換する両方のボタンは、少なくとも1つの誤った方程式に常に存在します。

一般的なルール:

  • これはであるため、バイト単位の最短回答が優先されます。
    コードゴルフ言語では、非コードゴルフ言語で回答を投稿しないようにしてください。「任意の」プログラミング言語の可能な限り短い答えを考えてみてください。
  • 回答には標準の規則が適用されるため、STDIN / STDOUT、適切なパラメーターと戻り値型、完全なプログラムを持つ関数/メソッドを使用できます。あなたの電話。
  • デフォルトの抜け穴は禁止されています。
  • 可能であれば、コードのテストへのリンクを追加してください。
  • また、必要に応じて説明を追加してください。

テストケース:

Input:
123    = 3
8423   = 252
4+4    = 8
4*7-10 = 417
9/3    = 3
42-9   = -36

Output: 2 *

Input:
4/2   = 6
3/0   = 3
0/8+2 = 4
95-5  = 90
4+2   = 2

Output: + /

Input:
7+4    = 11
5-15   = 46
212-23 = -2121

Output: 1 -

Input:
4+8/2-9*1 = -5
99/3-13   = 20
1+2+3+4   = 10
4-3-2-1   = -6

Output: 2 4

Input:
18/18  = 1
98-8   = 90
55*88  = 4840
-5--15 = 10

Ouput: 5 8

Input:
9119    = 18
5-3     = 513
8*-9    = 152
13116/3 = -1

Output: 1 -
code-golf  number  arithmetic  integer  code-golf  math  number  geometry  code-golf  grid  code-golf  math  number  sequence  primes  code-golf  sequence  kolmogorov-complexity  code-golf  string  ascii-art  alphabet  code-golf  math  sequence  integer  code-golf  number-theory  integer  natural-language  code-golf  date  code-golf  function  code-golf  ascii-art  code-golf  math  number-theory  primes  classification  code-golf  array-manipulation  decision-problem  matrix  code-golf  number  code-golf  code-golf  ascii-art  matrix  code-golf  string  code-golf  sequence  base-conversion  code-golf  code-golf  math  number-theory  combinatorics  integer-partitions  code-golf  integer  binary  base-conversion  code-golf  integer  base-conversion  palindrome  code-golf  code-golf  integer-partitions  code-golf  math  ascii-art  matrix  code-golf  number  sequence  number-theory  matrix  code-golf  interpreter  code-golf  graph-theory  code-golf  ascii-art  decision-problem  code-golf  division  code-golf  array-manipulation  primes  code-golf  string  ascii-art  code-golf  primes  counting  code-golf  matrix  unicode  code-golf  source-layout  code-golf  grammars  code-golf  string  cops-and-robbers  regular-expression  obfuscation  string  code-challenge  cops-and-robbers  regular-expression  code-golf  kolmogorov-complexity  game  card-games  code-golf  kolmogorov-complexity  code-golf  array-manipulation  matrix  code-challenge  cops-and-robbers  code-challenge  decision-problem  cops-and-robbers  code-golf  permutations 

2
「本当の分割」とは、フロートをサポートする必要があるということですか
エリックアウトゴルファー

@EriktheOutgolfer Oops ..私の以前の算数チャレンジからそれをコピーしました。削除され、あなたの質問への答えとして、あなたは整数を扱うだけでよい。
ケビンクルイッセン

1
正しい方程式にが含まれるテストケースを提案します--。たとえば1991 = 2, -/3 = 3。(多くの言語では、これを減分演算子と混同しています。)
nwellnhof

1
問題は91 19、ソリューションが9--9存在する場合はスペースを追加し、ソリューションが存在する場合はスペースを追加しないことで、テストケースの作成時にソリューションに関する知識91199229必要になることです。これが許可されている場合、スワップされた文字の前にのみスペースを追加するだけで、テストケースからすぐに解決策を導き出すことができます。
nwellnhof

1
評価は左から右、または*and and /before +and binary -ですか?
アシェプラー

回答:


5

Perl 6の132の 113バイト

-19バイトのJo Kingに感謝します。

->\e,$r {first {($!=e.trans($_=>.flip))ne e&&try "all {$!.&{S:g/\-/- /}} Z==$r".EVAL},[X~] (|^10,|<+ - * />)xx 2}

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

入力は、コンマで区切られた方程式の文字列とコンマで区切られた結果の文字列です(これで問題ないことを願っています)。出力は、交換された2つのボタンを含む文字列です。

を正しく処理し--ます。マイト製品偽陽性がために---++**、または//、私はテストケースを思い付くことができませんでした。


処理する必要はありません---++; **; //; など、または他のもの*+、あなたがサポートする必要があります唯一のダブル隣接する非数字があるなど--。また、コードを正しく理解していれば、スペースを入れ.subst('-','- 'てテストケース-5--15を入力することが許可されているため、必要はありません。このスペースをプログラムで追加するコードを最初に追加するのはあなたではないので、チャレンジの説明でこれをより明確に指定します。
ケビンCruijssen

2
@KevinCruijssen **Perl 6の式としての意味を持ち、誤検知を引き起こす可能性があるため、次のようなことを処理する必要があります。1992 = 1可能性1**2 = 11//2 = 1、たとえば、。これsubstは、--追加した新しいテストケースなど、正しい方程式にが含まれている場合です。
nwellnhof

あなたの答えは現在、バイト数が最も少ないものですので、今のところは受け入れます。誰かがもっと短いものを思いついた場合、チェックは再びシフトするかもしれません。
ケビンCruijssen


11

JavaScript(ES7)、159 158バイト

編集:--@Shaggyのおかげで保存された1バイトに関する更新されたルールに準拠する新しいバージョン

カリー化構文の入力を受け取ります。(e)(r)ここで、eは方程式の配列、rは予想される結果の配列です。文字の配列を返します。

e=>r=>(l=[...2**29+'4+-*/']).filter(x=>l.some(y=>eval("try{eval((S=(s=`[${e}]`).replace(/./g,c=>c==x?y:c==y?x:c)).split`--`.join`+`)+''==r&S!=s}catch(e){}")))

テストケース

フォーマットおよびコメント

e => r =>                                  // given e and r
  (l = [...2 ** 29 + '4+-*/'])             // generate l = [...'5368709124+-*/']
  .filter(x =>                             // for each character x of l
    l.some(y =>                            // for each character y of l
      eval("try {                          // we need to 'try', because we don't know
        eval(                              // whether the following expression is valid
          (S = (s = `[${e}]`).             // s = list of equations coerced to a string
            replace(/./g, c =>             // S =
              c == x ? y : c == y ? x : c  //   s with x and y exchanged
            )                              // end of replace()
          ).split`--`.join`+`              // replace '--' with '+'
        ) + '' == r                        // does the resulting list match r?
        & S != s                           // and was at least one character modified?
      } catch(e){}")                       // if we try, we oughta catch
    )                                      // end of some()
  )                                        // end of filter()

1
私はあなたがでバイトを救うことができると思いevalINGのtry / catchcodepen.io/anon/pen/rzRrLpを
シャギー

@Shaggy Ahはい、いいね。ありがとう!
アーナルド

それは次のようになり、この 139バイトのためかもしれない作業。
シャギー

ええ、私は完全なテストスイートを実行し、それを見つけました。
シャギー

では機能しません1991 = 2。解決策はあるべき1--1 = 29-入れ替え。
nwellnhof

4

パイソン2204199193173、165のバイト

  • Mr. Xcodeのおかげで199バイトから193バイトまで
  • Halvard Hummelのおかげで193バイトから173バイトに
s=input()
r=str.replace
t=set(''.join(zip(*s)[0]))
for i in t:
 for j in t:
	try:
	 if all(eval(r(r(r(e,i,'$'),j,i),'$',j))==v*(i<j)for e,v in s):print i,j
	except:0

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



@ Mr.Xcoderありがとう発言のために、私は...それを固定しています
mdahmoune

1
Mr.Xcoder @ここでは修正版である
mdahmoune



4

Oracle SQLおよびPL / SQL、458バイト

入力は任意の合理的な形式にすることができます。[...]方程式のリストと正しい結果の別のリスト。

PL / SQL関数をコンパイルします(210バイト):

CREATE FUNCTION f(x CHAR,y CHAR)RETURN NUMBER IS o NUMBER;BEGIN EXECUTE IMMEDIATE 'BEGIN :1:='||REPLACE(x,'--','- -')||';END;'USING OUT o;RETURN CASE o WHEN y THEN 1 END;EXCEPTION WHEN OTHERS THEN RETURN 0;END;

SQL(248バイト)を実行します。

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM T,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM T)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

Tテストデータでテーブルを作成した後:

CREATE TABLE T(X,Y) AS
  SELECT '123',    3     FROM DUAL UNION ALL
  SELECT '8423',   252   FROM DUAL UNION ALL
  SELECT '4+4',    8     FROM DUAL UNION ALL
  SELECT '4*7-10', 417   FROM DUAL UNION ALL
  SELECT '9/3',    3     FROM DUAL UNION ALL
  SELECT '42-9',   -36   FROM DUAL

出力:

V V_1
- ---
2 *
* 2

前のバージョン

次のような文字列入力を想定しました'123 = 3'

同じPL / SQL関数とSQL(322バイト):

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15),y(x,y)AS(SELECT REGEXP_SUBSTR(t,'[^=]+'),REGEXP_SUBSTR(t,'-?\d+$')FROM T)SELECT r.v,s.v FROM y,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM T)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

Tテストデータでテーブルを作成した後:

CREATE TABLE T(T) AS
  SELECT '123    = 3'   FROM DUAL UNION ALL
  SELECT '8423   = 252' FROM DUAL UNION ALL
  SELECT '4+4    = 8'   FROM DUAL UNION ALL
  SELECT '4*7-10 = 417' FROM DUAL UNION ALL
  SELECT '9/3    = 3'   FROM DUAL UNION ALL
  SELECT '42-9   = -36' FROM DUAL;

出力:

V V_1
- ---
2 *
* 2

更新-テスト

SQLフィドル

Oracle 11g R2スキーマのセットアップ

CREATE FUNCTION F(x CHAR,y CHAR)RETURN NUMBER IS o NUMBER;BEGIN EXECUTE IMMEDIATE 'BEGIN :1:='||REPLACE(x,'--','- -')||';END;'USING OUT o;RETURN CASE o WHEN y THEN 1 END;EXCEPTION WHEN OTHERS THEN RETURN 0;END;
/

CREATE TABLE A(X,Y) AS
  SELECT '123',    3     FROM DUAL UNION ALL
  SELECT '8423',   252   FROM DUAL UNION ALL
  SELECT '4+4',    8     FROM DUAL UNION ALL
  SELECT '4*7-10', 417   FROM DUAL UNION ALL
  SELECT '9/3',    3     FROM DUAL UNION ALL
  SELECT '42-9',   -36   FROM DUAL
/

CREATE TABLE B(X,Y) AS
  SELECT '4/2',    6     FROM DUAL UNION ALL
  SELECT '3/0',    3     FROM DUAL UNION ALL
  SELECT '0/8+2',  4     FROM DUAL UNION ALL
  SELECT '95-5',   90    FROM DUAL UNION ALL
  SELECT '4+2',    2     FROM DUAL
/

CREATE TABLE C(X,Y) AS
  SELECT '7+4',    11    FROM DUAL UNION ALL
  SELECT '5-15',   46    FROM DUAL UNION ALL
  SELECT '212-23', -2121 FROM DUAL
/

CREATE TABLE D(X,Y) AS
  SELECT '4+8/2-9*1', -5 FROM DUAL UNION ALL
  SELECT '99/3-13',   20 FROM DUAL UNION ALL
  SELECT '1+2+3+4',   10 FROM DUAL UNION ALL
  SELECT '4-3-2-1',   -6 FROM DUAL
/

CREATE TABLE E(X,Y) AS
  SELECT '18/18',  1     FROM DUAL UNION ALL
  SELECT '98-8',   90    FROM DUAL UNION ALL
  SELECT '55*88',  4840  FROM DUAL UNION ALL
  SELECT '-5--15', 10    FROM DUAL
/

CREATE TABLE G(X,Y) AS
  SELECT '9119',    18   FROM DUAL UNION ALL
  SELECT '5-3',     513  FROM DUAL UNION ALL
  SELECT '8*-9',    152  FROM DUAL UNION ALL
  SELECT '13116/3', -1   FROM DUAL
/

クエリ1

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM A,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM A)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| 2 | * |
| * | 2 |

クエリ2

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM B,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM B)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| + | / |
| / | + |

クエリ3

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM C,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM C)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| 1 | - |
| - | 1 |

クエリ4

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM D,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM D)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| 2 | 4 |
| 4 | 2 |

クエリ5

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM E,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM E)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| 5 | 8 |
| 8 | 5 |

クエリ6

WITH r(v)AS(SELECT SUBSTR('1234567890-+*/',LEVEL,1)FROM DUAL CONNECT BY LEVEL<15)SELECT r.v,s.v FROM G,r,r s WHERE r.v<>s.v GROUP BY r.v,s.v HAVING SUM(f(TRANSLATE(x,r.v||s.v,s.v||r.v),y))=(SELECT COUNT(1)FROM G)AND SUM(INSTR(x,r.v)+INSTR(x,s.v))>0

結果

| V | V |
|---|---|
| 1 | - |
| - | 1 |

必要はありませ||REPLACE(x,'--','- -')||あなたが入力を許可しているので、入力/出力フォーマットは、柔軟でない-5--15-5- -15、あなたがしたい場合。また、すべてのテストケース、特に最後のテストケースが機能することを確認する最も簡単な方法は何ですか?TIOリンクはどういうわけか可能ですか?
ケビンCruijssen

または、||REPLACE(x,'--','- -')||私が追加した最後のテストケースのように、予想される正しい方程式に使用されていますか?
ケビンCruijssen

1
@KevinCruijssen --はSQLでコメントを開始します。そのため、テストケースを--数式で発生しないように定式化する必要があります(それをに置き換えます- -)か、そのために防御的なコーディングが必要です。
MT0

そのため、最後のテストケースで13116/3 = -1131 16/3 = -1、その呼び出しを削除するように記述する必要がありREPLACEます。
MT0

ああ、それで実際に置き換えは期待される正しい方程式に使われます。SQLフィドルを追加してくれてありがとう、私から+1。
ケビンCruijssen

2

PowerShellの、222の 209 192バイト

param($x)1..13|%{0..(($i=$_)-1)|%{$a,$b='+-*/0123456789'[$i,$_]
$a+$b|?{!($x|%{$e,$r=$_-split'='
try{$r-(-join$(switch($e|% t*y){$a{$b}$b{$a}default{$_}})-replace'-',' -'|iex)}catch{1}}|gu)}}}

テストスクリプトと説明:

$f={

param($x)                               # array of strings with equations
1..13|%{                                #
    0..(($i=$_)-1)|%{                   # $i and $_ contains unique couples of different indecies
        $a,$b='+-*/0123456789'[$i,$_]  # $a and $b contains buttons to swap
        $g=$x|%{                        # for each equation from array
            $e,$r=$_-split'='           # split incorrect expression and correct result
            $e=-join$(switch($e|% t*y){ # swap buttons for each symbol in the expression
                $a{$b}
                $b{$a}
                default{$_}
            })
            $e=$e-replace'-',' -'       # insert a space before each '-'.
                                        # It need to work with negative numbers.
                                        # For example, '4--1' throws an exception, '4 - -1' returns '5'
            try{$r-($e|iex)}catch{1}    # Try to calc $e as powershell expression
                                        # return 0 if the expression result equal to the result of the calculation
                                        # return non zero integer otherwise
        }|gu                            # Get-unique of calculation for each equation
        if(!$g){                        # if $g is 0 or $null
                                        # then all calculations returns true
            $a+$b                       # Ok, return the couple of buttons
        }
    }
}

}

@(
    ,('2*','123=3','8423=252','4+4=8','4*7-10=417','9/3=3','42-9=-36')
    ,('/+','4/2=6','3/0=3','0/8+2=4','95-5=90','4+2=2')
    ,('1-','7+4=11','5-15=46','212-23=-2121')
    ,('42','4+8/2-9*1=-5','99/3-13=20','1+2+3+4=10','4-3-2-1=-6')
    ,('1-','9119=18','5-3=513','8*-9=152','13116/3=-1')
) | % {
    $e,$x=$_
    $r=&$f $x
    "$($e-eq$r): $r : $x"
}

出力:

True: 2* : 123=3 8423=252 4+4=8 4*7-10=417 9/3=3 42-9=-36
True: /+ : 4/2=6 3/0=3 0/8+2=4 95-5=90 4+2=2
True: 1- : 7+4=11 5-15=46 212-23=-2121
True: 42 : 4+8/2-9*1=-5 99/3-13=20 1+2+3+4=10 4-3-2-1=-6
True: 1- : 9119=18 5-3=513 8*-9=152 13116/3=-1

0

05AB1E、21 バイト

SÙãʒË_}ʒ¹s‡„--'+:.EQ

2つのリストとして入力します。1つ目は方程式、2つ目は結果です。両方の回転を持つペアのフィルターされたリストとして出力されます(つまり[["2","*"],["*","2"]])。

オンラインそれを試してみたり、すべてのテストケースを確認してください。(注:ので、TIOに05AB1Eのレガシーバージョンを使用します.E。TIO上の新しいバージョンで無効になっているそのため、追加のï05AB1Eのレガシーバージョンであるため、整数への(キャスト)は、追加される1.0と、1内部のリストと等しくありませんでした)

説明:

S              # Convert the (implicit) input-list of equations to a list of characters
               # (which implicitly flattens)
               #  i.e. ["18/18","98-8","55*88","-5--15"]
               #   → ["1","8","/","1","8","9","8","-","8","5","5","*","8","8","-","5","-","-","1","5"]
 Ù             # Only leave all unique characters
               #  → ["1","8","/","9","-","5","*"]
  ã            # Cartesian product with itself; creating each possible pair of characters
               #  → [["1","1"],["1","8"],["1","/"],["1","9"],["1","-"],["1","5"],["1","*"],["8","1"],["8","8"],["8","/"],["8","9"],["8","-"],["8","5"],["8","*"],["/","1"],["/","8"],["/","/"],["/","9"],["/","-"],["/","5"],["/","*"],["9","1"],["9","8"],["9","/"],["9","9"],["9","-"],["9","5"],["9","*"],["-","1"],["-","8"],["-","/"],["-","9"],["-","-"],["-","5"],["-","*"],["5","1"],["5","8"],["5","/"],["5","9"],["5","-"],["5","5"],["5","*"],["*","1"],["*","8"],["*","/"],["*","9"],["*","-"],["*","5"],["*","*"]]
    ʒ  }       # Filter it by:
     Ë_        #  Where both characters are unique
               #   i.e. → [["1","8"],["1","/"],["1","9"],["1","-"],["1","5"],["1","*"],["8","1"],["8","/"],["8","9"],["8","-"],["8","5"],["8","*"],["/","1"],["/","8"],["/","9"],["/","-"],["/","5"],["/","*"],["9","1"],["9","8"],["9","/"],["9","-"],["9","5"],["9","*"],["-","1"],["-","8"],["-","/"],["-","9"],["-","5"],["-","*"],["5","1"],["5","8"],["5","/"],["5","9"],["5","-"],["5","*"],["*","1"],["*","8"],["*","/"],["*","9"],["*","-"],["*","5"]]
    ʒ          # Then filter the pairs again by:
     ¹         #  Push the first input-list with equations
      s        #  Swap to take the pair we're filtering
       Â       #  Bifurcate it (short for Duplicate and Reverse)
              #  Transliterate; replacing the characters at the same indices in the input-list
               #   i.e. ["18/18","98-8","55*88","-5--15"] and ["8","5"]
               #    → ["15/15","95-5","88*55","-8--18"]
               #   i.e. ["9119","5-3","8*-9","13116/3"] and ["1","-"]
               #    → ["9--9","513","8*19","-3--6/3"]
      „--'+:  '#  Then replace all "--" with a "+"
               #   → ["15/15","95-5","88*55","-8+18"]
               #   → ["9+9","513","8*19","-3+6/3"]
      .E       #  And evaluate the strings with Python eval
               #   → [1.0,90,4840,10]
               #   → [18,513,152,-1.0]
        Q      #  And then check if this evaluated list is equal to the (implicit) second input
               #   i.e. [1.0,90,4840,10] and [1,90,4840,10] → 1 (truthy)
               #   i.e. [18,513,152,-1.0] and [18,513,152,-1] → 1 (truthy)
               # (and output the result implicitly)
               #   i.e. [["8","5"],["5","8"]
               #   i.e. [["1","-"],["-","1"]
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.