บทนำ:

ลองมาดูเครื่องคิดเลขมาตรฐานใน 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

การป้อนข้อมูลที่สองคือรายการของพิกัดในรูปแบบที่เหมาะสมใด ๆ† ตัวอย่างเช่น (0 จำนวนเต็ม 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อาจเป็นได้)

กฎทั่วไป:

• นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ
  อย่าปล่อยให้ภาษาที่ใช้รหัสกอล์ฟกีดกันคุณไม่ให้โพสต์คำตอบด้วยภาษาที่ไม่ได้เป็น codegolfing พยายามหาคำตอบสั้น ๆ ที่เป็นไปได้สำหรับภาษาโปรแกรม 'ใด ๆ '
• กฎมาตรฐานจะใช้สำหรับคำตอบของคุณดังนั้นคุณจึงได้รับอนุญาตให้ใช้ 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 จากนั้นลบวงเล็บ

Dyalog 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 ไบต์

การปรับให้เหมาะสมทั้งหมดจำเป็นต้องปิดและทำงานกับ GCC 32 บิตเท่านั้น

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

ทับทิม , 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 @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 องศา

Ungolfed

การหมุนเป็นเรื่องยุ่งยากความคิดของฉันคือการแมปสัญลักษณ์ใหม่อีกครั้งโดยขึ้นอยู่กับทิศทาง การทำแผนที่ใหม่ทำได้โดยการคูณพิกัด x และ y ด้วยจำนวนที่แตกต่างกันและหักล้างผลลัพธ์ ดังนั้นจึงมีสามต่อการปฐมนิเทศ (เก็บไว้ใน $ rot) อาจเป็นวิธีที่ดีกว่า แต่ฉันไม่สามารถคิดได้ในขณะนี้!

$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)

Burlesque , 122 ไบต์

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

ลองออนไลน์!

ใช้ args เป็น: "[[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 * /