На основі повідомлення в чаті

Змагання

Давши вхідне число n > 9, побудуйте його зворотну сторону, ігноруючи провідні нулі. Потім побудуйте перелік усіх простих факторів, що число та його зворотній зв'язок не мають спільного. Помножте ці фактори разом, щоб створити вхідний номер нечастого фактора .

Або, простіше кажучи: якщо rev(n)позначає десятковий зворот цілого числа n, обчисліть добуток nі rev(n)поділіть на квадратgcd(n, rev(n)) .

Виведіть це число.

Працювали приклади

Наприклад, 2244повертає до 4422. Основними факторами першого є, [2, 2, 3, 11, 17]а основними факторами зворотного є [2, 3, 11, 67]. Числа, що не мають спільної кратності, є [2, 17, 67], 2278як і вихід.

Для іншого прикладу 1234повертаємось до 4321. Продукт є, 5332114а GCD є 1, тому вихід є 5332114.

Подальші роз’яснення

Очевидно, що паліндромне число матиме всі спільні його фактори з його зворотним, тому в такому випадку вихідний результат є 1( n*n/n^2). Очевидно, що також можливим для виведення є множення всіх факторів (тобто gcd дорівнює 1 - вхід і його реверс є спільними простими), як у випадку 1234прикладу.

Правила

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

Приклади

in
out

17
1207

208
41704

315
1995

23876
101222302

05AB1E , 6 байт

Код

‚D¿÷P

Використовує кодування 05AB1E . Спробуйте в Інтернеті!

Пояснення

‚        # Get the array [input, reversed(input)]
  D       # Duplicate that array
   ¿      # Calculate the GCD of the array
    ÷     # Divide each element in the array by the GCD
     P    # Product of that array

J, 18 байт

".@|.@":(*%*:@+.)]

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

Як альтернатива (заслуга підходу @ Аднана для другого),

".@|.@":(*%2^~+.)]
".@|.@":*/@(,%+.)]

J, 15 байт (рішення @ миль)

*/@(,%+.)|.&.":

Пояснення

Це лише пряма реалізація алгоритму, заданого ОП.

".@|.@":(*%*:@+.)]
                 ]  n (input)
".@|.@":            n reversed
         *          Product of the two
          %         Divided by
              +.      GCD
           *:         Squared

Пояснення, рішення @ миль

Дуже розумний.

*/@(,%+.)|.&.":
         |.&.":  Reverse digits
           &.":   Convert to string, apply next function, and undo conversion
         |.       Reverse
   (,%+.)        Divide n and reverse(n) by GCD of both
*/               Product

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

#(s=IntegerReverse@#)/GCD[#,s]^2&

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

Желе , 8 байт

,ṚḌµ:g/P

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

JavaScript (ES7), 67 64 байт

Стільки байтів, щоб просто змінити число :(

Вводиться як рядок.

n=>n*(x=[...n].reverse().join``)/(g=(y,z)=>z?g(z,y%z):y)(n,x)**2

Спробуй це

o.innerText=(f=
n=>n*(x=[...n].reverse().join``)/(g=(y,z)=>z?g(z,y%z):y)(n,x)**2
)(i.value="10");oninput=_=>o.innerText=f(i.value)

<input id=i min=10 type=number><pre id=o>

Haskell, 44 байти

f x|r<-read$reverse$show x=x*r`div`gcd x r^2

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

R , 108 89 байт

-19 байт завдяки планапусу за його алгоритм gcd

function(n){k=1:nchar(n)-1
q=1:n
(r=sum(n%/%10^k%%10*10^rev(k)))*n/max(q[!r%%q&!n%%q])^2}

Це спробує виділити принаймні один вектор 4*nбайтів розміру (і я думаю, що цілих 4), тому це призведе до помилки пам'яті для досить великих n.

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

Python 3 , 73 68 байт

-5 байт завдяки спадару Xcoder.

import math
def f(n):g=int(str(n)[::-1]);print(n*g/math.gcd(n,g)**2)

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

MATL , 13 12 11 байт

tVPU*1MZdU/

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

Пояснення

t      % Imoplicit input: number. Duplicate
VPU    % String representation, flip, evaluate. This reverses digits
*      % Multiply input and reversed-digit version
1M     % Push the input and reversed-digit version again
Zd     % Greatest common divisor
U      % Square
/      % Divide. Implicit display

Нейм , 11 байт

𝕓𝕋₁𝐫𝐕₁𝐕𝕌𝐠ᛦ𝕍

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

Без вбудованого GCD ; -;

Лушпиння , 10 байт

S¤§÷o□⌋*i↔

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

-1 завдяки H.PWiz .
-1 завдяки Згарбу .

Japt , 13 12 11 байт

sw
*V/yU ²

Спробуй це

Пояснення

Неявне введення цілого числа U. Порожній рядок на початку запобігає перезаписуванню наступного рядкаU

sw

Перетворити Uв рядок ( s), перевернути його ( w), перетворити назад у ціле число та призначити змінній V.

*V

Помножте Uна V.

/

Розділити.

yU

GCD Vта U.

²

У квадраті. Неявний вихід отриманого цілого числа.

Альтернативно, 13 байт

Просто тому, що мені подобається вміти користуватися N.

NpUsw)mxNry)×

Спробуй це

Pyth , 13 байт

/*QKs_`Q^iKQ2

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

Піт , 15 байт

Це використовує підхід Аднана і приймає вклад як струну.

KsM_BQ*Fm/diFKK

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

машинний код x86, 39 байт

;;; Obtain a "reversed" version of the input value.
;;; 
;;; To do this, each iteration of a loop, we take the input value modulo 10,
;;; add that to our accumulator (EDI), multiply the accumulator by 10, and
;;; divide the input value by 10. x86's DIV instruction does both modulo and
;;; division as a single operation, with the cost of clobbering two output
;;; registers (EAX and EDX). We clobber the input value throughout the loop
;;; (the way we know we're done is when it becomes 0---that means that we have
;;; pulled all of the digits off of it), so we need to save a copy of it first.
89 C8           mov    eax, ecx     ; make copy of input
31 FF           xor    edi, edi     ; clear accumulator
6A 0A           push   10
5E              pop    esi          ; set ESI to 10
             Reverse:
0F AF FE        imul   edi, esi     ; accumulator *= 10
99              cdq                 ; zero EDX in preparation for division
F7 F6           div    esi          ; EDX:EAX / 10 (EAX is quot, EDX is rem)
01 D7           add    edi, edx     ; accumulator += remainder
85 C0           test   eax, eax     ; was quotient 0?
75 F4           jnz    Reverse      ; if not, keep looping and extracting digits

;;; At this point, EAX is 0 (clobbered throughout the loop),
;;; ECX still contains a copy of our original input, and
;;; EDI contains the 'reversed' input.
89 C8           mov    eax, ecx     ; make another copy of the input
F7 E7           mul    edi          ; multiply input (implicit EAX operand)
                                    ;  by 'reversed', with result in EDX:EAX
                                    ;  (note: EDX will be 0)

;;; Compute the greatest common denominator (GCD) of the input and
;;; the 'reversed' values, using a subtraction-based algorithm.
             GCD_0:
39 CF           cmp    edi, ecx     ; compare the two values
72 02           jb     GCD_1        ; go to GCD_1 if less than
87 F9           xchg   ecx, edi     ; swap values
             GCD_1:
29 F9           sub    ecx, edi     ; subtract
75 F6           jnz    GCD_0        ; if sum != 0, go back to the top

;;; Square the GCD.
0F AF FF        imul   edi, edi

;;; Divide the product of input and 'reversed' by the square of the GCD.
;;; Remember from above that the product of input and 'reversed' is in
;;; the EAX register, and we can assume EDX is 0, so we don't need to do
;;; a CDQ here in preparation for the division. Using EAX as the implicit
;;; source operand saves us a byte when encoding DIV.
F7 F7           div    edi

;;; The DIV instruction placed the quotient in EAX,
;;; which is what we want to return to the caller.
C3              ret

Вищенаведена функція обчислює "незвичайне число коефіцієнта" зазначеного вхідного параметра. Дотримуючись конвенції виклику __fastcall на основі регістра , параметр передається в ECXрегістр. Результат повертається в EAXреєстр, як і у всіх конвенціях викликів x86.

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

Щоб писати в такій компактній формі, це зайняло жахливо багато часу, але це було веселою вправою. Багато контурів для отримання найбільш оптимального можливого планування реєстру в рамках обмежених DIVнеявних операндів інструкції x86 та намагаються використовувати короткі кодування MULта XCHGінструкції, коли це можливо. Мені було б дуже цікаво побачити, чи може хтось придумати інший спосіб її скорочення. Мій мозок до кінця досить смажився. Дякуйте компілятору наступного разу, коли його побачите! (Хоча це спосіб краще, ніж той, який створював би компілятор ... Особливо, якщо ви його трохи змінили, не обмежуючи розмір, видаляючи такі речі XCHG.)

Perl 5 , 72 байти

71 байт коду + 1 прапор ( -p)

$t=$_*($b=reverse);($_,$b)=(abs$_-$b,$_>$b?$b:$_)while$_-$b;$_=$t/$_**2

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

Пайк , 8 байт

_]FbP).^B

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

Вводиться як рядок.

_         -    reversed(input)
 ]        -   [^, input]
  FbP)    -  for i in ^:
   b      -     int(^)
    P     -    factors(^)
      .^  -  xor_seq(^)
        B - product(^)

Python 2 , 70 байт

Завдяки i cri everytim .

def f(n):g=int(`n`[::-1]);print n*g/gcd(n,g)**2
from fractions import*

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

Python 2 , 77 байт

Зауважте, що в Python 2 ви не можете використовувати math.gcd()метод, і це потрібно зробити "вручну".

y=lambda a,b:b and y(b,a%b)or a
def f(n):g=int(`n`[::-1]);print n*g/y(n,g)**2

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

Ом , 9 байт

DR«D]Æ┴/µ

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

Ява 8, 158 150 148 138 125 123 116 107 + 19 байт

i->{int o,r,f,t=f=i;i=r=i.valueOf(""+new StringBuffer(t+"").reverse());while(t>0)t=i%(i=t);return f/i*r/i;}

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