Довідка! Несправності мого калькулятора!


28

Вступ

Мій калькулятор поводиться дивно. Іноді під час введення в 8ньому відображається а 2. І іноді, коли я набираю в 6ньому, відображається a +. Деякі кнопки змішані!
Може хтось допоможе мені визначити, який?

Виклик:

Введення: Список неправильних рівнянь з правильними результатами.

Вихід: дві кнопки, які поміняються.

Наприклад:
Вхід може бути:

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

Правила виклику:

  • Введення може бути в будь-якому розумному форматі. Може бути одним рядком з обмеженим пробілом; рядок-список або-масив; список з рівняннями та інший список з правильними результатами. Твій дзвінок. Будь ласка, вкажіть, який формат введення ви використовували!
    ПРИМІТКА. Це також означає, що ви можете вводити тестовий випадок -5--15як -5- -15або -5 - -15. Однак число, в результаті якого --слід вводити без пробілів, або з пробілом між кожною цифрою. Тому тестовий випадок 9119можна вводити як ( 9119або 9 1 1 9причина 91 19не дозволена тому, що ви можете керуватися місцем пошуку - -). Тож пробіли (дещо) необов’язкові та дозволені.
  • Формат виводу може бути також у будь-якому розумному форматі. Може бути два символи; єдиний двосимвольний рядок; список рядків, що містить два символи. Твій дзвінок. Ще раз, будь ласка, вкажіть, який вихідний формат ви використовували!
  • Вам дозволяється використовувати будь-які різні 14 виходів, на які відображається карта 0123456789+-*/. Тож вам навіть дозволяється виводити два різних цілих числа, якщо ви хочете (ще раз, будь ласка, вкажіть карту, яку ви використовували, якщо така є).
  • Вам потрібно лише підтримувати цілі числа. Тож не буде жодних тестових випадків на кшталт 1/8=0.125або 1/8=0.
  • Арифметичні операнди, які вам доведеться підтримувати: складання ( +); віднімання ( -); множення ( *або ×або ·); поділ ( /або ÷). (ПРИМІТКА. Символи між дужками додаються лише як уточнення.)
  • Вам доведеться підтримувати від’ємні числа. Це означає, що -можна трактувати в рівнянні як математичний операнд, так і як негативний показник.
  • Можна припустити , задані некоректні рівняння і передбачувані правильні рівняння завжди дійсні (щоб не було речей , як 4-/2і 9+-+8, наприклад).
  • Неправильні вхідні рівняння можуть містити ділення на 0, але виправлені та очікувані рівняння ніколи не містять ділення на 0.
  • Неправильні рівняння вводу вже можуть бути правильними, навіть якщо ви поміняєте потрібні кнопки назад.
  • Дане вхідне рівняння може бути нерелевантним для перемикання кнопок (як-от 4+4=8і 9/3=3рівнянь, із заміненими кнопками 2та *).
  • Ви можете припустити, що завжди буде лише одна можлива заміна, яку можна здійснити з даними тестовими кейсами.
  • Обидві кнопки для заміни завжди будуть присутніми принаймні в одному з неправильних рівнянь.

Загальні правила:

  • Це , тому найкоротша відповідь у байтах виграє.
    Не дозволяйте мовам коду-гольфу відштовхувати вас від публікації відповідей з не кодовими гольф-мовами. Спробуйте придумати якомога коротшу відповідь на "будь-яку" мову програмування.
  • Стандартні правила застосовуються до вашої відповіді, тому вам дозволяється використовувати 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 На жаль .. Скопіював це з попереднього арифметичного завдання. Видалено, і як відповідь на ваше запитання, вам не доведеться мати справу лише з цілими числами.
Kevin Cruijssen

1
Я б запропонував тестовий випадок, коли правильне рівняння містить --. Наприклад 1991 = 2, -/3 = 3. (Багато мов плутають це з оператором декременту.)
nwellnhof

1
Проблема полягає в тому, що додавання пробілу, 91 19якщо рішення є, 9--9а простору немає, 9119якщо рішення 9229вимагає знань про рішення під час створення тестових випадків. Якби це було дозволено, я міг би просто додати пробіл лише перед заміненими символами, і рішення можна було негайно отримати з тестового випадку.
nwellnhof

1
Є чи оцінка зліва-направо, або *і /до того +і довічного -?
aschepler

Відповіді:


5

Perl 6 , 132 113 байт

Завдяки Джо Кінгу за -19 байт.

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

Спробуйте в Інтернеті!

Введення - це розділена комою рядка рівнянь і розділена комою рядок результатів (сподіваємось, це нормально). Вихід - це рядок, що містить дві міняються кнопки.

Правильно ручки --. Міць продукт помилкових спрацьовувань на ---, ++, **, або //, але я не міг придумати тесту.


Вам не доведеться впоратися ---; ++; **; //; або інші речі, наприклад *+тощо. Єдиний подвійний сусідній нецифровий, який вам доведеться підтримувати, - це --. Крім того, якщо я правильно розумію ваш код, вам не знадобиться .subst('-','- ', оскільки введення тестового випадку -5--15з пробілом дозволено. Ви не перший, хто додає код, щоб програмно додати цей простір, тому я опишу це більш чітко в описі завдання.
Kevin Cruijssen

2
@KevinCruijssen Можливо, мені доведеться поводитися з такими речами, як **вони мають значення як вирази Perl 6 і можуть викликати помилкові позитиви. 1992 = 1може бути 1**2 = 1або 1//2 = 1, наприклад. Це substстосується випадків, коли правильне рівняння містить --, наприклад, новий тестовий випадок, який ви додали.
nwellnhof

На даний момент ваша відповідь відповідає найменшій кількості байтів, тому я зараз її прийму. Якщо хтось придумає щось коротше, чек може змінитися знову.
Кевін Круїссен


11

JavaScript (ES7), 159 158 байт

Редагувати: нова версія для відповідності оновленим правилам щодо --
збереженого 1 байта завдяки @Shaggy

Приймає введення в синтаксис currying, (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
Я думаю, ви можете зберегти байт, evalвикористовуючи try / catch: codepen.io/anon/pen/rzRrLp .
Кудлатий

@Shaggy Ага, приємний. Спасибі!
Арнольд

Схоже, це може працювати на 139 байт.
Кудлатий

Так, я просто запустив повний тестовий набір і помітив це.
Кудлатий

Не працює для 1991 = 2. Розчин повинен бути 1--1 = 2з заміненим 9і -заміненим.
nwellnhof

4

Python 2 , 204 , 199 , 193 , 173 , 165 байт

  • Від 199 байт до 193 байт завдяки містеру Xcode
  • Від 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 Fiddle

Налаштування схеми 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-посилання якось можливий?
Kevin Cruijssen

Або ||REPLACE(x,'--','- -')||використовується для очікуваного правильного рівняння, як у останньому тестовому випадку, який я додав?
Kevin Cruijssen

1
@KevinCruijssen --запускає коментар у SQL, тому або тестові випадки потрібно сформулювати так, щоб --ніколи не виникало в рівнянні (замінивши його - -), або для цього потрібне деяке захисне кодування.
MT0,

Отже, для останнього тестового випадку 13116/3 = -1потрібно писати, як 131 16/3 = -1видалити цей виклик REPLACE.
MT0,

Ну добре, тому заміна справді використовується для очікуваних правильних рівнянь. Дякуємо, що додали скрипку SQL, +1 від мене.
Kevin 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","*"],["*","2"]]).

Спробуйте в Інтернеті або перевірте всі тестові випадки . (ПРИМІТКА: Використовується застаріла версія 05AB1E в TIO, тому що .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"]
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.