ท้าทาย:

มีจิ๊กซอว์งี่เง่าเวียนอยู่บนเครือข่ายสังคมที่อ่าน:

8 + 2 = 16106
5 + 4 = 2091
9 + 6 = ?

ใช้ฟังก์ชั่นหรือผู้ประกอบการที่เมื่อได้รับตัวเลขสองจำนวนเต็มบวกxและyเช่นว่าx > y > 0ถัวเฉลี่ยตอบที่ถูกต้องเป็นจำนวนเต็มซึ่งตัวเลขคำตอบเป็นตัวเลขของx * yตามด้วยตัวเลขของตามด้วยตัวเลขของx + y x - yง่ายมาก.

กฎ:

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

รหัสตัวอย่าง:

Dyalog APL :

รหัสต่อไปนี้จะสร้างผู้ประกอบการ dyadic Xชื่อ

X ← {(⍺-⍵) + ((⍺ + ⍵) × 10 * 1 + ⌊10⍟⍺-⍵) + ⍺×⍵× 10 * (2 + + ⌊10⍟⍺⍵) + ⌊10⍟⍺- ⍵}

คำอธิบาย:

• ใน APL คุณประเมินจากขวาไปซ้าย

• ⍺ and ⍵ เป็นตัวถูกดำเนินการทางซ้ายและขวาตามลำดับ

• ⌊10⍟⍺-⍵อ่าน: floor of log10(⍺-⍵). ก่อนอื่นทำการ substraction แล้วลอการิทึมจากนั้นทำการปูพื้น จากขวาไปซ้าย log10 เสร็จสิ้นเพื่อนับตัวเลขของ⍺-⍵(คุณต้องบวก 1 หลังจากนั้น)

• ⍺×⍵×10*(...) อ่าน: 10 to the (...)th power, multiplied by ⍵, multiplied by ⍺

• ดังนั้น⍺×⍵×10*(2+⌊10⍟⍺+⍵)+⌊10⍟⍺-⍵ผลิตภัณฑ์คือเลื่อนไปทางซ้ายโดยผลรวมของจำนวนตัวเลขของผลรวมและความแตกต่าง การคูณด้วยกำลัง 10 จะเลื่อนจำนวนเต็มไปทางซ้าย

• ((⍺+⍵)×10*1+⌊10⍟⍺-⍵) คือผลรวมเลื่อนไปทางซ้ายตามจำนวนตัวเลขของความแตกต่าง

• (⍺-⍵)คือความแตกต่าง ไม่จำเป็นต้องเปลี่ยนที่นี่

• X←{...} เป็นวิธีที่คุณกำหนดโอเปอเรเตอร์ใน APL

ตัวอย่าง:

      8 X 2
16106
      5 X 4
2091
      9 X 6
54153

GNU dc:

รหัสต่อไปนี้สร้างแมโครชื่อa:

[sysx10lxly-dseZdsclxly+dsd+Z1+^lxly**10lc^ld*+le+]sa

คำอธิบาย:

• sxและsyวางองค์ประกอบจากสแต็กและบันทึกลงในรีจิสเตอร์xและyตามลำดับ

• lxและlyโหลดองค์ประกอบจากการลงทะเบียนxและyตามลำดับและผลักมันไปยังสแต็ค

• d ทำซ้ำองค์ประกอบสุดท้ายในสแต็ก

• ^ คำนวณพลังของตัวเลขสองจำนวน

• Zดึงตัวเลขและส่งกลับจำนวนหลัก สิ่งนี้ทำได้เนื่องจากdcไม่มีฟังก์ชันลอการิทึม

• [...]saaเก็บแมโครในการลงทะเบียน laโหลดมัน xเรียกใช้แมโครที่ด้านบนสุดของสแต็ก

ตัวอย่าง:

8 2 laxn
16106
5 4 laxn
2091
9 6 laxn
54153

JavaScript (ES7), 63 61 59 ไบต์

ที่บันทึกไว้ 4 ไบต์ขอบคุณที่นีล

(a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c)

<input id=a type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-~Math.log10(c)+c))(+a.value,+b.value)">
<input id=b type=number oninput="c.innerText=((a,b)=>[a*b,a+b,a-b].reduce((p,c)=>p*10**-!Math.log10(c)+c))(+a.value,+b.value)">
<p id=c>

C, 79 75 ไบต์

ขอบคุณ @GB สำหรับการบันทึก 4 ไบต์!

#define X for(c=1;(c*=10)<=a
c,d;f(a,b){X+b;);d=c*a*b+a+b;X-b;);a=d*c+a-b;}

ลองออนไลน์!

Bash, 66

• บันทึก 2 ไบต์ด้วย @chepner

f()(s=$[$1+$2]
d=$[$1-$2]
echo $[($1*$2*10**${#s}+s)*10**${#d}+d])

ลองมันออนไลน์

EXCEL, 61 ไบต์

=A1-B1+(A1+B1)*10^LEN(A1-B1)+A1*B1*10^(LEN(A1-B1)+LEN(A1+B1))

Excel, 18 ไบต์ไม่ถูกต้อง

=A1*B1&A1+B1&A1-B1

ซ้อนกัน , 36 ไบต์

,@A$(*+-){!A...n!}"!{%y#'10\^x*y+}#\

ลองออนไลน์!

ก่อนหน้านี้: ,@A$(-+*){!A...n!}"!:inits$#'"!$summap:pop@.10\^1\,\*sum

ฉันจะพยายามบีบเอาหนึ่งหรือสองไบต์ก่อนเขียนคำอธิบาย ( #'ขนาด = ของและ"เป็น "ทำในแต่ละ" ไม่มีการแนบสตริงที่นี่)

Noncompeting ที่ 26 $(*+-)#!!:{%y#'10\^x*y+}#\ไบต์:

TI-Basic, 34 33 ไบต์

Prompt A,B
A-B+(A+B)10^(1+int(log(A-B
Ans+AB10^(1+int(log(Ans

GNU dc, 36

กำหนดมาโครmที่รับสมาชิกสองคนแรกของสแต็กนำมาใช้กับแมโคและทิ้งผลลัพธ์ไว้ในสแต็ก (ตามตัวอย่างในคำถาม):

[sadsbla-dZAr^lalb+*+dZAr^lalb**+]sm

ลองมันออนไลน์

Perl 6 ,  81 61  58 ไบต์

->\x,\y{($/=($/=x- y)+(x+y)*({10**$++}...*>$/).tail)+x*y*({10**$++}...*>$/).tail}

ลองมัน

->\x,\y{(x*y,x+y,x- y).reduce:{$^a*10**Int(1+log10($^b))+$b}}

ลองมัน

->\x,\y{[[&({$^a*10**Int(1+$^b.log10)+$b})]] x*y,x+y,x- y}

ลองมัน

เยลลี่ , 27 ไบต์

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵*
ạ,+,×Fæ.ç

กำหนดให้การเชื่อมโยง dyadic / ฟังก์ชั่น callable çกับ รับจำนวนเต็มสองตัวเป็นอินพุตและส่งคืนเลขจำนวนเต็ม มันมีโบนัสเพิ่มของความสามารถในการใช้<xy หรือ x> xy โดยใช้ความแตกต่างแน่นอน

ลองออนไลน์!

คำอธิบาย:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create link which computes what order of magnitude
                        to multiply the difference, sum, and product by
ạ,+,×Fæ.ç         -- Main link, applies this using dot product

รายละเอียด:

+,ạ,.1Fl⁵Ḟ‘€Ṛ+\⁵* -- Create dyadic like which does the following:
       l⁵Ḟ‘       -- Create operation which computes number of digits
                       (log base 10 (⁵ is the literal 10), floored, incremented)
           €      -- Apply this to each element in
+,ạ,.1F           -- ... the list [sum,difference,.1]
            R     -- Reverse the list
             +\   -- Add up first n elements to get list.
               ⁵* -- Raise 10 (⁵ is literal 10) to the power of each element

ạ,+,×Fæ.ç         -- Main link, applies above link
ạ,+,×F            -- The list [difference, sum, product]
      æ.          -- Dot product (multiply corresponding elements) with
        ç         -- The above link.

PHP, 79 75 ไบต์

สองรุ่น:

[,$a,$b]=$argv;echo(10**strlen($s=$a+$b)*$a*$b+$s)*10**strlen($d=$a-$b)+$d;
[,$a,$b]=$argv;echo(10**strlen($a+$b)*$a*$b+$a+$b)*10**strlen($a-$b)+$a-$b;

รับอินพุตจากอาร์กิวเมนต์บรรทัดรับคำสั่ง -rทำงานด้วย

ฉันเดาว่าstrlenมีคุณสมบัติเป็น "ฟังก์ชั่นที่ส่งกลับจำนวนหลัก"
แม้ว่ามันจะใช้ตัวเลขเป็นสตริง แจ้งให้เราทราบหากไม่

C (gcc) , 70 ไบต์

#define _ for(c=1;a+b>=(c*=10););d=c*d+a-(b=-b);
c,d;f(a,b){d=a*b;_ _}

ลองออนไลน์!

ขึ้นอยู่กับคำตอบของSteadyboxทำให้ทุกอย่างเป็นเรื่องที่น่าสนใจยิ่งขึ้น

(หมายเหตุ: การกำหนดผลลัพธ์ให้dแทนการaทำงานโดยไม่คาดคิดฉันได้ดูรหัสประกอบที่สร้างขึ้นและดูเหมือนว่าจะโอเค)

Haskell, 54 ไบต์

a%0=a
a%b=10*a%div b 10+mod b 10
a#b=(a*b)%(a+b)%(a-b)

ปริศนาถูกดำเนินการผ่านทางฟังก์ชั่นมัดเช่น# 8#2 = 16106ฟังก์ชั่นอื่น ๆ%, กำหนด concatenation ฐาน -10 (สมมติว่า RHS มากกว่า 0)

Dyalog APL, 31 ไบต์

{a⊥⍨10*1+⌊10⍟a←(⍺×⍵)(⍺+⍵)(⍺-⍵)}

ขึ้นอยู่กับตัวอย่างรหัส APL จากคำสั่งปัญหา

PHP, 87 ไบต์

[,$a,$b]=$argv;echo($s=$a-$b)+($t=$a+$b)*10**($l=strlen($s))+$a*$b*10**($l+strlen($t));

และโซลูชันที่ไม่ถูกต้องสำหรับ 37 ไบต์

[,$a,$b]=$argv;echo$a*$b,$a+$b,$a-$b;

Ruby, 61 ไบต์

->a,b{[a*b,a+b,a-b].reduce{|x,y|z=y;x*=10while(z>z/=10);x+y}}

ซึ่งมีข้อสงสัยอย่างมากเหมือนคำตอบ Javascript นี้แต่ไม่มีการใช้ลอการิทึม

Python, 92 91 Chars

def g(x,y):
    l=lambda x,i=0:l(x/10,i+1)if x else 10**i
    a=x-y
    a+=(x+y)*l(a)
    return x*y*l(a)+a

ขอบคุณคำแนะนำของพ่อมด;)

R (3.3.1), 104 ไบต์

function(x,y)Reduce(function(p,q)p*10^(floor(log10(q)+1))+q,lapply(c(`*`,`+`,`-`),function(z)z(x,y)),0)

ส่งคืนฟังก์ชั่นที่ไม่ระบุชื่อ

นี่เป็นความพยายามครั้งแรกของฉันในการเล่นกอล์ฟดังนั้นคำติชมใด ๆ ก็ได้รับการชื่นชม

REXX, 70 ไบต์

f:arg a b
c=a-b
c=(a+b)*10**length(c)+c
c=a*b*10**length(c)+c
return c

แน่นอนว่าวิถีทางพื้นเมืองนั้นจะสั้นกว่ามาก:

f:arg a b
return a*b||a+b||a-b

PowerShell, 88 ไบต์

param($x,$y)$l=2;if(($a=$x+$y)-gt9){$l++};($x*$y)*[math]::Pow(10,$l)+$a*10+$x-$y

PowerShell ไม่มีการต่อตัวจ่ายไฟซึ่งไม่ได้ช่วย ยังไม่สามารถนับความยาวของจำนวนเต็มได้เว้นแต่คุณจะนับเป็นสตริงซึ่งเราไม่สามารถทำได้ดังนั้นฉันตรวจสอบเพื่อดูว่าเป็น-gt9 เพื่อทำความรู้จักความยาวหรือไม่ มีแนวโน้มที่จะกระชับมากกว่านี้ แต่ฉันต้องกลับไปทำงาน

Python 2.7, 109 96 ไบต์

import math
a=lambda n:10**int(math.log10(10*n))
b,c=input()
d=b-c+(b+c)*a(b-c)
print d+b*c*a(d)

แก้ไขหลังจากทำตามกฎการแข่งขัน เครดิตไปที่mbomb007สำหรับนำรหัสลงมาจาก 109 ไบต์ถึง96 ไบต์

J , 25 ไบต์

X=.10#.[:;10#.inv&.>*;+;-

1. *;+;- กล่องผลลัพธ์ของการดำเนินการแต่ละอย่าง
2. 10#.inv&.>แปลงผลลัพธ์แต่ละรายการให้เป็นอาร์เรย์ของตัวเลข 10 หลัก ( invคือ^:_1)
3. [:; Unbox และเข้าร่วมอาร์เรย์
4. 10#. แปลงอาเรย์ของเลขฐาน 10 เป็นจำนวนเต็ม
5. X=.Xกำหนดข้างต้นเป็นผู้ประกอบการ

ผล:

   8 X 2
16106
   5 X 4
2091
   9 X 6
54153

Mathematica, 67 ไบต์

c=Ceiling;l=Log10;#-#2+(#+#2)10^(c@l[#-#2]/. 0->1)+10^c@l[2#]10#2#&

Takes x-y, then takes the log10 of x-y, rounds it up, calculates 10 to the power of that and then multiplies it by x+y. But we also need to consider log10(x-y) being 0, so we replace 0 with 1. Then we take the log10 of 2x, rounded up, plus 1, and find 10 to the power of that. Multiply that by xy, and add that on.

05AB1E, 23 22 16 bytes

-Dg°¹²+*Dg°¹²**O

Try it online!

We could have saved a few bytes if we'd been allowed to use strings in the program (but not in calculations) by looping over a string containing the operations "-+*", as the code performed for each operation is the same.
Of course, if we'd been allowed to use concatenation we'd saved a lot more.

R, 64 bytes

x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)

Usage:

> x=scan();(b=(a=diff(-x))+10^nchar(a)*sum(x))+10^nchar(b)*prod(x)
1: 8 2
3: 
Read 2 items
[1] 16106