Вступ:

Давайте подивимось на стандартний калькулятор у Windows: Для цього виклику ми розглянемо лише наступні кнопки та проігноруємо все інше:

7 8 9 /
4 5 6 *
1 2 3 -
0 0 . +

Виклик:

Вхід:
Ви отримаєте два входи:

• Одне - це те, що вказує обертання з кроком в 90 градусів
• Інший - це список координат, що представляють кнопки, натиснуті на обертовому калькуляторі.

На основі першого вводу ми обертаємо згаданий макет за годинниковою стрілкою з кроком у 90 градусів. Отже, якщо вхід є 0 degrees, він залишається таким, як є; але якщо вхід є 270 degrees, він буде повернутий три рази за годинниковою стрілкою (або один раз проти годинникової стрілки). Ось чотири можливі схеми:

Default / 0 degrees:
7 8 9 /
4 5 6 *
1 2 3 -
0 0 . +

90 degrees clockwise:
0 1 4 7
0 2 5 8
. 3 6 9
+ - * /

180 degrees:
+ . 0 0
- 3 2 1
* 6 5 4
/ 9 8 7

270 degrees clockwise / 90 degrees counterclockwise:
/ * - +
9 6 3 .
8 5 2 0
7 4 1 0

Другий вхід - це список координат у будь-якому розумному форматі † . Наприклад (0D-індекс 2D цілого масиву):

[[1,2],[2,3],[0,3],[1,0],[1,1]]

Вихід:
Виводимо як суму, так і результат (і знак рівності =).

Приклад:
Отже, якщо вхід є 270 degreesі [[1,2],[2,3],[0,3],[1,0],[1,1]], вихід стане:

517*6=3102

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

• † Входи можуть бути в будь-якому розумному форматі. Перший вхід може бути 0-3, 1-4, A-D, 0,90,180,270і т.д. другий вхід може бути 0 індексовані 2D масив, 1-індексованих 2D масив, рядок, список точкових об'єктів і т.д. Ваш виклик. Можна навіть поміняти місцями координати x і y порівняно з наведеними прикладами. Будь ласка, вкажіть, які формати введення ви використовували у своїй відповіді!
• Ви можете додати пробіли (тобто 517 * 6 = 3102), якщо хочете.
• Ви можете додати нулі після коми через максимум три (тобто 3102.0/ 3102.00/ 3102.000замість 3102або 0.430замість 0.43).
• Вам не дозволяється додавати дужки у висновок, тому (((0.6+4)-0)/2)/4=0.575це не є дійсним результатом.
• Ви можете використовувати інші операнди-символи для вашої мови. Так ×або ·замість цього *; або ÷замість /; тощо.
• Оскільки калькулятор автоматично обчислює при введенні операнда, вам слід ігнорувати пріоритет оператора! Так 10+5*3вийде 45( (10+5)*3=45), а не 25( 10+(5*3)=25)
  (тобто 10→ +→ 5→ *(тепер на дисплеї відображається 15) → 3→ =(тепер відображається відповідь 45)). Майте це на увазі під час використання evalта подібних функцій на отриманій сумі.
• Не буде жодних тестових випадків для поділу на 0.
• Не буде жодних тестових випадків із результатом більше трьох десяткових цифр, тому немає необхідності округлювати результат.
• Не буде жодних тестових випадків, коли кілька операндів слідують один за одним, або де дві точки слідують один за одним.
• Не буде жодних тестових випадків для від'ємних чисел. Знак мінус ( -) буде використовуватися лише як операнд, а не як негативний.
• Не буде жодних тестових випадків .##без провідного числа перед комою (тобто 2+.7не буде дійсним тестовим випадком, але це 2+0.7може бути).

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

• Це код-гольф , тому найкоротша відповідь у байтах виграє.
  Не дозволяйте мовам з кодовим гольфом відштовхувати вас від публікації відповідей з мов, що не кодують гольф. Спробуйте придумати якомога коротшу відповідь на "будь-яку" мову програмування.
• Для вашої відповіді застосовуються стандартні правила , тому вам дозволяється використовувати STDIN / STDOUT, функції / метод з відповідними параметрами, повноцінні програми. Твій дзвінок.
• Лазівки за замовчуванням заборонені.
• Якщо можливо, додайте посилання з тестом для вашого коду.
• Також, будь ласка, додайте пояснення, якщо це необхідно.

Тестові приклади:

Input:   270 degrees & [[1,2],[2,3],[0,3],[1,0],[1,1]]
Output:  517*6=3102

Input:   90 degrees & [[3,1],[0,0],[0,1],[3,3],[2,0],[0,3],[0,0],[0,2],[3,0],[2,1]]
Output:  800/4+0.75=200.75

Input:   0 degrees & [[0,0],[1,0],[2,0],[3,0],[1,2],[2,1],[2,2]]
Output:  789/263=3

Input:   180 degrees & [[3,0],[1,0],[1,2],[0,0],[3,2],[0,1],[2,0],[0,3],[2,1],[0,3],[3,2]]
Output:  0.6+4-0/2/4=0.575

SOGL V0.12 , 70 69 67 байт

i⅛⁸Νο;⌡░▼Y6γj±²‘1n4n.⌡Iø,→{_≤whwιh:"/*-+”;W? )Κ; (Κ;}+}:Ƨ)(čøŗoļ=→p

Спробуйте тут , або спробуйте версію, яка приймає введення, як зазначено в тестових випадках

використовує Iоператор SOGL , який обертає масив. Потім читає рядок як масив JavaScript, і там, де використовується операція, обшивають попередній результат у дужках, оцінюють як JavaScript, а потім видаляють круглі дужки.

Діалог APL, 94 88 86 85 байт

{o,'=',⍎('('\⍨+/'+-×÷'∊⍨o),'[×÷+-]'⎕R')&'⊢o←(((⌽∘⍉⍣⍺)4 4⍴'789÷456×123-00.+')⊃⍨⊂∘⊢)¨⍵}

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

Враховує обертання як аргумент зліва 0-3, а 1-базисні індекси як правий аргумент, як список y xкоординат, як (1 1)(2 3)(4 5)і т.д.

Це стало досить безладним через правильну оцінку виразів у APL.

C (gcc) , 282294 295 296 300 304 306 310 байт

Усі оптимізації потрібно вимкнути і працювати лише на 32-бітному GCC.

float r,s;k,p,l,i;g(d,x,y){int w[]={y,x,3-y,3-x,y};d=w[d+1]*4+w[d];}f(x,y,z)int**z;{for(i=0;i<=y;i++)putchar(k=i-y?"789/456*123-00.+"[g(x,z[i][0],z[i][1])]:61),57/k*k/48?p?r+=(k-48)*pow(10,p--):(r=10*r+k-48):k-46?s=l?l%2?l%5?l&4?s/r:s+r:s-r:s*r:r,r=p=0,l=k:(p=-1);printf("%.3f",s);}

1 байт завдяки @Orion!

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

Прототип функції:

f(<Direction 0-3>, <Number of entries>, <a int** typed array in [N][2]>)

Формат введення (як у TIO):

<Direction 0~3> <Number of entries>
<Entries 0 Row> <Entries 0 Column>
<Entries 1 Row> <Entries 1 Column>
....
<Entries N Row> <Entries N Column>

Невикористана версія з коментарями:

float r, s;
k, p, l, i;
g(d, x, y) {
  int w[] = {
    y,
    x,
    3 - y,
    3 - x,
    y
  };
  d = w[d + 1] * 4 + w[d];
}
f(x, y, z) int **z; {
  for (i = 0; i <= y; i++)
  {
      putchar(k = i - y ? 
      "789/456*123-00.+"[g(x, z[i][0], z[i][1])] : 61),     // Print character, otherwise, '='
      57 / k * k / 48 ?                                     // If the character is from '0'~'9'
        p ?                                                 // If it is after or before a dot
            r += (k - 48) * pow(10., p--)                   // +k*10^-p
        :
            (r = 10 * r + k - 48)                           // *10+k
      :
          k - 46 ?                                          // If the character is not '.', that is, an operator, + - * / =
            s = l ?                                         // Calculate the result of previous step (if exist)
                    l % 2 ?                                 // If + - /
                        l % 5 ?                             // If + /
                            l & 4 ?
                                s / r
                            :
                                s + r
                        :
                            s - r
                    :
                        s * r
                 :
                    r,
                    r = p = 0, l = k                        // Reset all bits
          :
            (p = -1);                                       // Reverse the dot bit
  }
  printf("%.3f", s);
}

Код може обробляти випадки, такі як 1+.7або -8*4.

Дуже сумно C не має eval😭.

JavaScript (ES6), 162 160 157 байт

Приймає введення як орієнтацію oта масив (y, x) координат aу синтаксисі currying (o)(a).

Орієнтація є цілим числом у [0..3] :

• 0 = 0 °
• 1 = 90 ° за годинниковою стрілкою
• 2 = 180 ° за годинниковою стрілкою
• 3 = 270 ° за годинниковою стрілкою

o=>a=>(s=a.map(([y,x])=>'789/456*123-00.+'[[p=y*4+x,12+(y-=x*4),15-p,3-y][o]]).join``)+'='+eval([...x=`0)+${s}`.split(/(.[\d.]+)/)].fill`(`.join``+x.join`)`)

Тестові справи

let f =

o=>a=>(s=a.map(([y,x])=>'789/456*123-00.+'[[p=y*4+x,12+(y-=x*4),15-p,3-y][o]]).join``)+'='+eval([...x=`0)+${s}`.split(/(.[\d.]+)/)].fill`(`.join``+x.join`)`)

console.log(f(3)([[2,1],[3,2],[3,0],[0,1],[1,1]])) // 517*6=3102
console.log(f(1)([[1,3],[0,0],[1,0],[3,3],[0,2],[3,0],[0,0],[2,0],[0,3],[1,2]])) // 800/4+0.75=200.75
console.log(f(0)([[0,0],[0,1],[0,2],[0,3],[2,1],[1,2],[2,2]])) // 789/263=3
console.log(f(2)([[0,3],[0,1],[2,1],[0,0],[2,3],[1,0],[0,2],[3,0],[1,2],[3,0],[2,3]])) // 0.6+4-0/2/4=0.575

Ruby , 135 133 132 байт

->r,c{a="";c.map{|x,y|a=((w="789/456*123-00.+"[[y*4+x,12-x*4+y,15-y*4-x,x*4+3-y][r]])=~/[0-9.]/?a:"#{eval a}")+w;w}*""+"=#{eval a}"}

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

Орієнтація як ціле число: 0 для 0 °, 1 для 90 ° тощо.

Python 3, 235 234 230 байт

Трохи некрасиво, але він працює для всіх тестових випадків, крім першого, який, схоже, не відповідає прикладу калькулятора. Я приймаю обертання як 0-3 (0-270) і помножую на 16 для зміщення.

eval() це вбудований модуль, який намагається скласти рядки як код і обробляє перетворення текстових символів в оператори.

import re
def f(r,c,J=''.join):
 b='789/456*123-00.+01470258.369+-*/+.00-321*654/987/*-+963.85207410'
 s=t=J([b[r*16+x*4+y]for y,x in c]);t=re.split('([\+\-\/\*])',s)
 while len(t)>2:t=[str(eval(J(t[0:3])))]+t[3:]
 print(s+'='+t[0])

Альтернативний метод, виявився трохи довше, але мені дуже подобається ця підказка SO для обертання масиву.

import re
def f(r,c):
 L=list;b=L(map(L,['789/','456*','123-','00.+']))
 while r:b=L(zip(*b[::-1]));r-=1
 s=''.join([b[x][y]for y,x in c]);t=re.split('([\+\-\/\*])',s)
 while len(t)>2:t=[str(eval(''.join(t[0:3])))]+t[3:]
 print(s+'='+t[0])

Java 10, 418 380 378 байт

d->a->{String r="",g=d>2?"/*-+963.85207410":d>1?"+.00-321*654/987":d>0?"01470258.369+-*/":"789/456*123-00.+",n[],o[];for(var i:a)r+=g.charAt(i[1]*4+i[0]);n=r.split("[-/\\+\\*]");o=r.split("[[0-9]\\.]");float s=new Float(n[0]),t;for(int i=1,O,j=0;++j<o.length;O=o[j].isEmpty()?99:o[j].charAt(0),s=O<43?s*t:O<44?s+t:O<46?s-t:O<48?s/t:s,i+=1-O/99)t=new Float(n[i]);return r+"="+s;}

Вирішив відповісти і на власне запитання. Я впевнений, що можна пограти ще трохи, використовуючи інший підхід.
Введіть як int( 0-3) та int[][](0-індексований / те саме, що в описі виклику). Виведіть, як floatпри ведучому, .0якщо результат є цілим числом, а не десятковим числом.

-2 байти завдяки @ceilingcat .

Пояснення:

Спробуйте тут.

d->a->{                       // Method with int & 2D int-array parameters and String return
  String r="",                //  Result-String, starting empty
    g=d>2?                    //  If the input is 3:
       "/*-+963.85207410"     //   Use 270 degree rotated String
      :d>1?                   //  Else if it's 2:
       "+.00-321*654/987"     //   Use 180 degree rotated String
      :d>0?                   //  Else if it's 1:
       "01470258.369+-*/"     //   Use 90 degree rotated String
      :                       //  Else (it's 0):
       "789/456*123-00.+",    //   Use default String
    n[],o[];                  //  Two temp String-arrays
  for(var i:a)                //  Loop over the coordinates:
    r+=g.charAt(i[1]*4+i[0]); //   Append the result-String with the next char
  n=r.split("[-/\\+\\*]");    //  String-array of all numbers
  o=r.split("[[0-9]\\.]");    //  String-array of all operands (including empty values unfortunately)
  float s=new Float(n[0]),    //  Start the sum at the first number
        t;                    //  A temp decimal
  for(int i=0,                //  Index-integer `i`, starting at 0
      O,                      //  A temp integer
      j=0;++j<o.length        //  Loop `j` over the operands
      ;                       //    After every iteration:
       O=o[j].isEmpty()?      //     If the current operand is an empty String
          99                  //      Set `O` to 99
         :                    //     Else:
          o[j].charAt(0),     //      Set it to the current operand character
       s=O<43?                //     If the operand is '*':
          s*t                 //      Multiply the sum with the next number
         :O<44?               //     Else-if the operand is '+':
          s+t                 //      Add the next number to the sum
         :O<46?               //     Else-if the operand is '-':
          s-t                 //      Subtract the next number from the sum 
         :O<48?               //     Else-if the operand is '/':
          s/t                 //      Divide the sum by the next number
         :                    //     Else (the operand is empty):
          s,                  //      Leave the sum the same
       i+=1-O/99)             //     Increase `i` if we've encountered a non-empty operand
    t=new Float(n[i]);        //   Set `t`  to the next number in line
  return r+"="+s;}            //  Return the sum + sum-result

PHP ,267 235 229 225 221 213 байт

<?php $t=[1,12,15,4,1];$j=$t[$k=$argv[1]];($o=$i=$t[$k+1])<5&&$o--;foreach(json_decode($argv[2])as$c){echo$s='/*-+963.85207410'[($c[0]*$i+$c[1]*$j+$o)%16];strpos(' /*-+',$s)&&$e="($e)";$e.=$s;}eval("echo'=',$e;");

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

6 байт завдяки @Kevin Cruijssen.

Напрямки введення: 0 - 0, 1 - 90, 2 - 180 і 3 - 270 градусів.

Безумовно

Обертання складне, моя ідея полягає у переплануванні символів залежно від орієнтації. Повторне відображення проводиться шляхом множення координат x і y на різні величини та зміщення результату. Отже, є потрійний на орієнтацію (зберігається в $ гнилі). Мабуть, є кращий спосіб, але наразі я не можу про це думати!

$coords = json_decode($argv[2]);
$symbols = '789/456*123-00.+';
$r=$argv[1];
$rot = [1,4,0,12,1,12,15,12,15,4,15,3];    
list($xs,$ys,$o)=array_slice($rot,$r*3,3);

$expression='';

foreach($coords as $coord) {
    $symbol=$symbols[($coord[0]*$xs+$coord[1]*$ys+$o)%16];

    if (!is_numeric($symbol) && $symbol!='.') {
        $expression = "($expression)";
    }
    $expression .=$symbol;
    echo $symbol;
}

eval ("echo '='.($expression);");

?>

05AB1E , 57 54 байт

εžm3ôí…/*-ø"00.+"ª€SIFøí}yθèyнè}JD'=s.γžh'.«så}R2ôR».VJ

Використання 0 на основі координат , аналогічні як опис виклику, і [0,1,2,3]для [0,90,180,270]відповідно в якості вхідних даних.

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Пояснення:

ε                    # Map over each of the (implicit) input-coordinates:
 žm                  #  Push builtin "9876543210"
   3ô                #  Split it into parts of size 3: [987,654,321,0]
     í               #  Reverse each inner item: [789,456,123,0]
      …/*-           #  Push string "/*-"
          ø          #  Zip the lists together: [["789","/"],["456","*"],["123","-"]]
           "00.+"ª   #  Append string "00.+": [["789","/"],["456","*"],["123","-"],"00.+"]
                  €S #  Convert each inner item to a flattened list of characters
                     #   [[7,8,9,"/"],[4,5,6,"*"],[1,2,3,"-"],[0,0,".","+"]]
 IF                  #  Loop the input-integer amount of times:
   ø                 #   Zip/transpose the character-matrix; swapping rows/columns
    í                #   And then reverse each inner row
 }                   #  Close the loop (we now have our rotated character matrix)
  yθèyнè             #  Index the current coordinate into this matrix to get the character
}J                   # After the map: join all characters together to a single string
  D                  # Duplicate the string
   '=               '# Push string "="
     s               # Swap to get the duplicated string again
      .γ             # Group it by (without changing the order):
        žh           #  Push builtin "0123456789"
          1/         #  Divide it by 1, so it'll become a float with ".0": "0123456789.0"
                     #  (1 byte shorter than simply appending a "." with `'.«`)
            så       #  And check if this string contains the current character
       }             # Close the group-by, which has separating the operators and numbers
                     #  i.e. "800/4+0.75" → ["800","/","4","+","0.75"]
        R            # Reverse this list
                     #  i.e. ["0.75","+","4","/","800"]
         2ô          # Split it into parts of size 2
                     #  i.e. [["0.75","+"],["4","/"],["800"]]
           R         # Reverse the list again
                     #  i.e. [["800"],["4","/"],["0.75","+"]]
            »        # Join each inner list by spaces, and then those strings by newlines
                     #  i.e. "800\n4 /\n0.75 +"
             .V      # Execute this string as 05AB1E code
               J     # Join this with the earlier string and "=" on the stack
                     # (after which the result is output implicitly)

Бурлеск , 122 байти

pe'1'9r@3co{".-"".*""./"}z[)FL{'0'0'.".+"}+]j{{}{tp}{)<-<-}{tp)<-}}j!!e!<-Ppra{pPj<-d!}msJ'=_+j{><}gB3co{rtp^}mwpe?+'.;;++

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

Аргументи приймає як: "[[1,2],[2,3],[0,3],[1,0],[1,1]]" 3

pe                  # Push args to stack
'1'9r@              # Range of characters [1,9]
3co                 # Split into chunks of 3
{".-" ".*" "./"}z[  # Zip in the operators
)FL                 # Flatten the resulting list (giving us the first 3 rows)
{'0 '0 '. ".+"}+]   # Add the 4th row
j                   # Swap rotation index to top of stack
{
 {}                 # NOP
 {tp}               # Transpose
 {)<- <-}           # Reverse each column and row
 {tp )<-}           # Transpose and reverse each row
}
j!!e!               # Select which based on rotation spec and eval
<-                  # Reverse the result
Pp                  # Push to hidden stack
ra                  # Read the coords as array
{
 pP                 # Pop from hidden stack
 j<-                # Reverse the coords (tp'd out)
 d!                 # Select this element
}ms                 # For each coord and accumulate result as string
J                   # Duplicate said string
'=_+j               # Put the equals at the end of the other string
{><}gB              # Group by whether digits
3co                 # Split into chunks of 3
{
 rt                 # rotate (putting op in post-fix position)
 p^                 # Ungroup
}mw                 # Map intercalating spaces
pe                  # Evaluate the result
?+                  # Combine the results
'.;;++              # Change .* ./ etc to * /