Виклик:

У соціальних мережах циркулює нерозумна головоломка, на якій написано:

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

Реалізуйте функцію чи оператора, який, якщо дано два додатних цілих числа xта yтакий, що x > y > 0дає правильну відповідь як ціле число , де цифрами відповіді є цифри, за якими x * yйдуть цифри, x + yа за ними - цифри x - y. Дуже просто.

Правила:

• Стандартні лазівки заборонені.
• Це код-гольф, тому найкоротший код в байтах виграє.
• Перевірка вхідних даних не потрібна. Ця програма може вийти з ладу або повернути сміття, якщо йому дано недійсне введення.
• Вам дозволяється використовувати числові функції та оператори (включаючи цілі чи плаваючі точки, функції математичної бібліотеки та інші функції, які приймають і повертають числа).
• Ви можете використовувати функцію, яка повертає кількість цифр числа, якщо це можливо.
• Ви НЕ дозволяється використовувати такі рядки або будь-якого виду конкатенації в будь-якому місці вашого коду.
• Результат може бути повернутий або висунутий у стек, що залежно від мови. Результатом має бути ціле число, а не рядок.

Приклад коду:

Діалог APL :

Наступний код створює діадичний оператор з ім'ям X.

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

Пояснення:

• У APL ви оцінюєте справа наліво.

• ⍺ and ⍵ - лівий і правий операнд відповідно

• ⌊10⍟⍺-⍵говорить: floor of log10(⍺-⍵). Спочатку виконується субстракція, потім логарифм, потім підлога. Справа наліво. 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що не має функції логарифму.

• [...]saзберігає макрос у реєстрі a. 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;}

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

Баш, 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

Я спробую вичавити байт-два, перш ніж написати пояснення. ( #'= розмір і "є "робити на кожному", тут не додаються рядки.)

Неконкуруючих по 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æ.ç

Визначає діадичну зв'язок / функцію, яку можна дзвонити за допомогою ç. Бере два цілі числа як вхідні дані і повертає ціле число. Він має додатковий бонус за можливість приймати x <y або x >y, використовуючи абсолютну різницю.

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

Пояснення:

+,ạ,.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. Інша функція, %визначає конкатенацію базової 10 (припускаючи, що РЧС перевищує 0).

Діалог 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;

Рубін, 61 байт

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

Що підозріло виглядає дуже як ця відповідь Javascript, але без використання логарифму.

Пітона, 92 91 чол

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. [:; Розв’язати і приєднатися до масивів.
4. 10#. Перетворити масив базових 10 цифр у ціле число.
5. X=.визначте вище як оператор X.

Результати:

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

Математика, 67 байт

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

Бере x-y, потім бере log10 x-y, округляє його, обчислює 10 на потужність цього і потім множує його на x+y. Але нам також потрібно врахувати, що log10(x-y)дорівнює 0, тому замінимо 0 на 1. Потім беремо log10 2x, округлений вгору плюс 1, і знаходимо 10 під силу. Помножте це на xyі додайте це.

05AB1E , 23 22 16 байт

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

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

Ми могли би зберегти кілька байтів, якби нам було дозволено використовувати рядки в програмі (але не в обчисленнях), перебираючи рядок, що містить операції "-+*", оскільки код, виконаний для кожної операції, однаковий.
Звичайно, якби нам дозволили використовувати конкатенацію, ми б зекономили набагато більше.

R, 64 байти

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

Використання:

> 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