หมายเลข biquadratic คือตัวเลขที่เป็นกำลังสี่ของจำนวนเต็มอื่นตัวอย่างเช่น: 3^4 = 3*3*3*3 = 81

กำหนดจำนวนเต็มเป็นอินพุตเอาต์พุตหมายเลข biquadratic ที่ใกล้เคียงที่สุด

นี่คือ 15 ตารางสองครั้งแรก:

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

นี่คือโค้ดกอล์ฟที่มีจำนวนน้อยที่สุดในแต่ละภาษาที่ชนะ

นี่คือ OEIS A000583

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 4

(ทำงานสำหรับทุกn ≤ 4504699340341245 = (8192 ⁴ + 8193 ⁴ - 7) / 2> 2 ⁵²หลังจากที่จุดลอยตัว roundoff เริ่มต้นที่จะทำลายมันแม้ว่ามันจะทำงานทางคณิตศาสตร์สำหรับทุกn .)

อ็อกเทฟ 35 ไบต์

ความท้าทายนี้จำเป็นต้องมีวิธีการที่ใช้วิธีโน้มน้าว

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

ลองออนไลน์!

คำอธิบาย

การแสดงออกที่ผลิตเวกเตอร์แถว(1:n).^4[1 16 81 256 ... n^4]

เวกเตอร์นี้จะ convolved แล้วด้วยซึ่งเทียบเท่ากับการคำนวณค่าเฉลี่ยของการเลื่อนของบล็อกขนาด[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.

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)

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

Neim , 5 ไบต์

𝐈4𝕎S𝕔

คำอธิบาย:

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

ลองออนไลน์!

Excel, 25 ไบต์

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

Excel จะอัปเดตเป็น =INT((A1^0.5-3/4)^0.5+0.5)^4

Mathematica ขนาด 21 ไบต์

Nearest[Range@#^4,#]&

Brachylogขนาด 9 ไบต์

;I≜+.~^₄∧

ลองออนไลน์!

คำอธิบาย

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

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

อ็อกเทฟ 37 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อที่ใช้การแก้ไขเพื่อนบ้านที่ใกล้ที่สุด

ลองออนไลน์!

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

APL, 22 ไบต์

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

ลองออนไลน์!

อย่างไร?

o←4*⍨⍳⍵- o= range ( ⍵) ⁴ _[vectorize]

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

o/⍨- นำoองค์ประกอบที่ดัชนีที่ ...

p=⌊/p- pองค์ประกอบขั้นต่ำคือ

เยลลี่ 6 ไบต์

R*4ạÐṂ

ลิงก์ monadic ส่งคืนรายการหนึ่งรายการหรือโปรแกรมเต็มรูปแบบที่พิมพ์ผลลัพธ์ (โดยใช้วิธีที่ไม่มีประสิทธิภาพ)

ลองออนไลน์!

อย่างไร?

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

PHP , 33 ไบต์

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

ลองออนไลน์!

PHP , 56 ไบต์

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

ลองออนไลน์!

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);
}

ลิงค์ที่จะลอง

Haskell, 35 ไบต์

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

ท่าเรือเดสคำตอบ Python3

R , 47 44 37 35 ไบต์

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

ลองออนไลน์!

Pyth , 9 ไบต์

.maQb^R4S

ลองออนไลน์!

Pyth , 17 ไบต์

โปรแกรมเต็มรูปแบบที่ใช้วิธีการทางคณิตศาสตร์แบบเดียวกับในคำตอบของ @ AndersKaseorg :

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

ลองออนไลน์!

Japt , 20 ไบต์

นี่มันนานเกินไป!

õp4
V®nU a
VgWaWrmU

ทดสอบมัน

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

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;}

ลองออนไลน์!

Lisp ทั่วไป, 50 ไบต์

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

ลองออนไลน์!

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();
        }
    }
}

Ruby , 23 34 ไบต์

ฉันไม่รู้ว่าเพราะเหตุใดจึง0.75มีจำนวนที่สำคัญสำหรับเรื่องนี้ แต่เดี๋ยวก่อนทำงานอะไรก็ได้

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

ลองออนไลน์!