18

Двоквадратичне число - це число, яке є четвертим значенням іншого цілого числа, наприклад: 3^4 = 3*3*3*3 = 81

Враховуючи ціле число як вихід, виведіть найближче двоквадратичне число.

Ось перші 15 подвійних квадратів:

1, 16, 81, 256, 625, 1296, 2401, 4096, 6561, 10000, 14641, 20736, 28561, 38416, 50625

Це код-гольф, тому виграє найменше байтів на кожній мові

Це OEIS A000583

— Скідсдев
джерело

Цікаво зазначити, що це ніколи не буде зв'язано, оскільки послідовність чергує непарні і парні числа.

— Okx

5

ви можете змінити назву на "Знайти найближчого zenzizenzic". en.wiktionary.org/wiki/zenzizenzic

— лимон

1

@Mayube Це обов'язково так, тому що послідовність справедлива n^4і nчергується в знаку.

— Мартін Ендер

2

Ця номенклатура двоквадратичного збиває з пантелику: перед переглядом змісту питання я подумав, що це 2 x n²цифри: 2, 8, 18, 32, 50, 72, 98, ...

— sergiol

2

Хіба це не називається "квартичним"? ( Merriam-Webster , Wiktionary )

— Олів'є Грегоар

15

Python 3 , 35 байт

lambda n:int((n**.5-.75)**.5+.5)**4

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

Як це працює

Значення n, при якому вихід переходить з ( k - 1) ⁴ на k ^4, відповідає √ (√n - 3/4) + 1/2 = k , або n = ((k - 1/2) ² + 3 / 4) ² = ( k ² - k + 1) ² = (( k - 1) ⁴ + k ⁴ + 1) / 2, що є саме першим цілим числом, ближчим до k ⁴ .

(Працює для всіх n ≤ 4504699340341245 = (8192 ⁴ + 8193 ⁴ - 7) / 2> 2 ⁵² , після чого округлення з плаваючою комою починає розбивати його, хоча воно працює математично для всіх п .)

— Андерс Касеорг
джерело

Ви можете зберегти байт, roundякщо ви перейдете на Python 2, який округляє всі .5 вгору.

— xnor

8

Октава , 35 байт

Цей виклик потребував підходу, заснованого на згортанні.

@(n)sum(n>conv((1:n).^4,[1 1]/2))^4

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

Пояснення

Вираз (1:n).^4створює вектор рядка [1 16 81 256 ... n^4].

Даний вектор згортається з [1 1]/2, що еквівалентно обчисленню ковзного середнього розміру блоків 2. Це неявно передбачає, що вектор набитий ліворуч та праворуч 0. Отже, перше значення в результаті є 0.5(середнє значення неявного 0і 1), друге - 8.5(середнє значення 1та 16) тощо.

Як приклад, для n = 9результату conv((1:n).^4,[1 1]/2)є

0.5 8.5 48.5 168.5 440.5 960.5 1848.5 3248.5 5328.5 3280.5

Потім порівняння n>...дає результат

1 1 0 0 0 0 0 0 0 0 0

і застосування sum(...)подає 2. Це означає, що nперевищує саме 2середні точки між двоквадратичними числами (включаючи додаткову середню точку 0.5). І, нарешті, ^4піднімає це , 4щоб отримати результат, 16.

— Луїс Мендо
джерело

2

Це навіть гольфіст!

— недолік

7

Haskell , 51 49 байт

Функція monad ftw!

f n=snd.minimum$(abs.(n-)<$>)>>=zip$(^4)<$>[1..n]

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

Пояснення:

                                (^4)<$>[1..n] -- creates a list of fourth powers
            (abs.(n-)<$>)>>=zip               -- creates a list of |n-(4th powers)| and
                                              -- zips it with the 4th powers list
    minimum                                   -- finds the minimum
                                              -- (only first tuple entry matters)
snd                                           -- exctracts the second entry (the 4th power)

— недолік
джерело

6

MATL , 6 байт

t:4^Yk

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

Пояснення

Розглянемо вклад 9як приклад.

t    % Implicitly input n. Duplicate         
     % STACK: 9, 9
:    % Range [1 2 ... n]
     % STACK: 9, [1 2 3 4 5 6 7 8 9]
4^   % Raise to 4, element-wise
     % STACK: 9, [1 16 81 256 625 1296 2401 4096 6561]
Yk   % Closest element. Implicitly display
     % STACK: 16

— Луїс Мендо
джерело

5

Нейм , 5 байт

𝐈4𝕎S𝕔

Пояснення:

𝐈       Inclusive range [1 .. input]
  𝕎    Raise to the  v  power
 4                   4th
     𝕔  Select the value closest to
    S   the input

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

— Окс
джерело

2

Ця мова програмування, як видається, використовує символи Unicode ("𝕎" та "𝕔"). Для таких символів зазвичай потрібно більше одного байта. Ви впевнені, що 5 символів можна зберігати, використовуючи лише 5 байт?

— Мартін Розенау

3

@MartinRosenau Neim використовує користувацьку кодову сторінку

— Okx

5

Excel, 25 байт

=INT((A1^.5-3/4)^.5+.5)^4

Excel оновлює це до =INT((A1^0.5-3/4)^0.5+0.5)^4

— Верніш
джерело

1

Лише примітка домовленості про excel: це фактично стандарт, що функції Excel і Excel VBA, які приймають вхід від Excel.ActiveSheetоб'єкта, беруть їх з коміркиA1

— Тейлор Скотт

1

@TaylorScott, дякую за вказівку на це. Оновили.

— Верніш

4

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

Nearest[Range@#^4,#]&

— Мартін Ендер
джерело

4

Брахілог , 9 байт

;I≜+.~^₄∧

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

Пояснення

;I≜          I = 0 / I = 1 / I = -1 / I = 2 / etc. on backtracking
   +.        Output = Input + I
    .~^₄     Output = Something to the power 4
        ∧

— Фаталізувати
джерело

3

JavaScript (ES7), 42 байти

x=>(n=x**.25|0,x-(k=n**4)<++n**4-x?k:n**4)

Рекурсивна версія, 44 байти

f=(x,k,b)=>(a=k**4)>x?a-x>x-b?b:a:f(x,-~k,a)

Демо

Показати фрагмент коду

let f =

x=>(n=x**.25|0,x-(k=n**4)<++n**4-x?k:n**4)

console.log(f(16))
console.log(f(48))
console.log(f(49))

Expand snippet

— Арнольд
джерело

3

Октава , 37 байт

@(n)interp1(t=(1:n).^4,t,n,'nearest')

Анонімна функція, що використовує інтерполяцію найближчого сусіда.

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

— Луїс Мендо
джерело

2

-1 ні conv :(

— недолік

1

@flawr чи це змусить вас почувати себе краще?

— Луїс Мендо

1

Це дуже багато!

— flawr

2

05AB1E , 6 байт

LnnI.x

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

Пояснення

LnnI.x
L      # Push [1 .. input]
 nn    # Raise every element to the 4th power
   I   # Push input
    .x # Closest element in the array to input

— Датбой
джерело

2

APL, 22 байти

{o/⍨p=⌊/p←|⍵-⍨o←4*⍨⍳⍵}

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

Як?

o←4*⍨⍳⍵- o= діапазон ( ⍵) ⁴ _{[векторизація]}

p←|⍵-⍨o- p= abs ( o- ⍵) _[vectorize]

o/⍨- взяти oелемент в індекс, де ...

p=⌊/p- pмінімальний елемент є

— Уріель
джерело

2

Желе , 6 байт

R*4ạÐṂ

Монадичне посилання, що повертає список одного елемента, або повну програму, яка друкує результат (використовуючи неефективний метод).

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

Як?

R*4ạÐṂ - Link: number, n
R      - range(n) -> [1,2,3,...,n]
 *4    - raise to the fourth power -> [1,16,81,...,n**4]
    ÐṂ - filter keep those (only ever one) minimal:
   ạ   -   absolute difference (with n)
       - if a full program: implicit print (one item lists print their content).

— Джонатан Аллан
джерело

1

PHP , 33 байти

<?=(($argn**.5-.75)**.5+.5^0)**4;

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

PHP , 56 байт

<?=2*$argn-($x=($f=$argn**.25^0)**4)>($y=++$f**4)?$y:$x;

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

— Йорг Гюльсерманн
джерело

1

C ++, 96 байт

int Q(int N){int i=1;while (pow(i,4)<N){i++;}if (pow(i,4)-N>N-pow(i-1,4)){i--;}return pow(i,4);}

Повна версія:

int Q(int N)
{
    int i = 1;

    while (pow(i, 4) < N)
    {
        i++;
    }

    if (pow(i, 4)-N > N-pow(i - 1, 4))
        i--;

    return pow(i,4);
}

СПИСОК, щоб спробувати

— koita_pisw_sou
джерело

1

Haskell, 35 байт

f n=(floor$(n**0.5-3/4)**0.5+0.5)^4

Відповідь Порта Андерса Python3 .

— CR Drost
джерело

1

R , 47 44 37 35 байт

n=scan();which.min(((1:n)^4-n)^2)^4

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

— Максим Михайлов
джерело

ви можете повернути анонімну функцію (видалення f=) та замість її x[which.min((x-n)^2)]використання which.min((x-n)^2)^4, а потім помістити f=у заголовок посилання TIO для тестування, як тут :)

— Джузеппе

1

@Giuseppe О, не потрібно взагалі визначатись x. Дякую!

— Максим Михайлов

ах, тоді єдиним іншим вдосконаленням є взяття даних від stdin, n=scan();which.min(((1:n)^4-n)^2)^4і вхід переходить у розділ колонтитулу на TIO.

— Джузеппе

@Giuseppe Ще раз дякую! Корисно знати для майбутніх відповідей у Р.

— Максим Михайлов

1

Pyth , 9 байт

.maQb^R4S

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

Піт , 17 байт

Повна програма, яка використовує той же арифметичний підхід, що і у відповіді @ AndersKaseorg :

K.5^s+^-^QK.75KK4

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

— Містер Xcoder
джерело

0

Japt , 20 байт

Це відчувається занадто довго!


õp4
V®nU a
VgWaWrmU

Перевірте це

— Кудлатий
джерело

0

QBIC , 38 байт

{p=q^4~p>:|~p-a>a-o|_Xo\_Xp]\o=p┘q=q+1

Пояснення

{           DO infinitely
p=q^4       Set p to q quad (q starts out as 1)
~p>:|       IF p exceeds the input THEN
~p-a>a-o    check the distance to p and to o (the last quad) and
|_Xo        PRINT o, or
\_Xp        PRINT p accordingly
]           END IF
\o=p        ELSE  ( p <= input) store p in o to keep track of this quad
┘q=q+1      and raise q for the next iteration

— Steenbergh
джерело

0

Java (OpenJDK 8) , 64 байти

n->{int i=0,q,Q=0;while((q=i*i*i*i++)<n)Q=q;return q-n<n-Q?q:Q;}

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

— Олів’є Грегуар
джерело

0

Лист звичайний, 50 байт

(lambda(x)(expt(floor(+(sqrt(-(sqrt x).75)).5))4))

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

— Ренцо
джерело

0

C #, 95 байт

namespace System.Linq{n=>new int[940].Select((_,i)=>i*i*i*i).OrderBy(i=>Math.Abs(i-n)).First()}

Ми використовуємо 940 як задане значення, оскільки будь-яке велике значення переповнить int.

Повна / відформатована версія:

namespace System.Linq
{
    class P
    {
        static void Main()
        {
            Func<int, int> f = n => new int[940].Select((_, i) => i * i * i * i).OrderBy(i => Math.Abs(i - n)).First();

            for (int i = 1; i <= Int32.MaxValue; ++i)
                Console.WriteLine($"{i} = {f(i)}");

            Console.ReadLine();
        }
    }
}

— TheLethalCoder
джерело

0

Рубі , 23 34 байт

Я поняття не маю, чому 0.75для цього таке важливе число, але ей, що б не працювало.

->n{((n**0.5-0.75)**0.5).round**4}

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

— Чорнило значення
джерело

Це не дасть найближчих двоквадратичних. Наприклад, вона поверне 256 за 151.

— P.Peter

Знайдіть найближче двоквадратичне число

Python 3 , 35 байт

Як це працює

Октава , 35 байт

Пояснення

Haskell , 51 49 байт

MATL , 6 байт

Пояснення

Нейм , 5 байт

Excel, 25 байт

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

Брахілог , 9 байт

Пояснення

JavaScript (ES7), 42 байти

Рекурсивна версія, 44 байти

Демо

Октава , 37 байт

05AB1E , 6 байт

Пояснення

APL, 22 байти

Желе , 6 байт

Як?

PHP , 33 байти

PHP , 56 байт

Haskell, 35 байт

R , 47 44 37 35 байт

Pyth , 9 байт

Піт , 17 байт

Japt , 20 байт

QBIC , 38 байт

Пояснення

Java (OpenJDK 8) , 64 байти

Лист звичайний, 50 байт

C #, 95 байт

Рубі , 23 34 байт