ระยะในลำดับ squaring แต่ละx _nถูกสร้างขึ้นโดยการx _n-1 , squaring มันและลบทั้งหมด แต่ตัวเลขสี่ครั้งแรก

ลำดับเสมอเริ่มต้นด้วยx ₁ = 1111 การยกกำลังสองนี้จะได้ 1234321 ดังนั้นx ₂ = 1234

คำศัพท์สองสามคำแรกคือ:

1111
1234
1522
2316
5363
...

ความท้าทาย

งานของคุณคือการได้รับจำนวนเต็มไม่เป็นลบnคำนวณx n คุณสามารถส่งโปรแกรมเต็มรูปแบบซึ่งดำเนินการ I / O หรือฟังก์ชั่นที่ใช้nเป็นพารามิเตอร์

โซลูชันของคุณอาจมีค่าศูนย์หรือดัชนีหนึ่งรายการตราบใดที่คุณระบุว่า

เนื่องจากข้อกำหนดทั้งหมดในลำดับนี้สั้นกว่า 5 หลักรหัสของคุณควรสั้นที่สุดเท่าที่จะเป็นไปได้ มีช่องโหว่ของรหัสมาตรฐานสำหรับกอล์ฟ

ขอให้นักกอล์ฟที่ดีที่สุดชนะ!

กรณีทดสอบ

หมายเหตุ: สิ่งเหล่านี้เป็น 1 ดัชนี

1   -> 1111
8   -> 6840
15  -> 7584
20  -> 1425
80  -> 4717

05AB1E , 8 7 ไบต์

รหัส:

$Fn4×4£

คำอธิบาย:

$        # Push 1 and the input
 F       # Input times do...
  n      #   Square the number
   4×    #   Repeat that string 4 times
     4£  #   Take the first four characters
         # Output the last computed number

ใช้การเข้ารหัสCP-1252 ลองออนไลน์!

JavaScript (ES7), 44 43 36 ไบต์

f=n=>--n?(f(n)**2+f).slice(0,4):1111

นี่เป็นตัวอย่างที่ดีของการใช้การข่มขู่แบบเหยียดหยาม: **แปลงทั้งอาร์กิวเมนต์เป็นตัวเลขและ+แปลงทั้งอาร์กิวเมนต์เป็นสตริงยกเว้นว่าเป็นตัวเลขทั้งคู่ ซึ่งหมายความว่าการf(n)**2+fแปลงครั้งแรกf(n)fเป็นจำนวนและสี่เหลี่ยมมันแล้วเชื่อมผลกับการเป็นตัวแทนสตริงของ จากนั้นเราสามารถใช้.sliceเพื่อดึง 4 ตัวอักษรแรกของสตริง

ต่อไปนี้เป็นแนวทางสำรองบางส่วนที่ไม่ใช้สตริง:

f=(n,x=1111)=>x<1e4?--n?f(n,x*x):x:f(n,x/10|0)
f=n=>--n?(x=f(n))*x/(x>3162?1e4:1e3)|0:1111

ตัวอย่างการทดสอบ

let f=n=>--n?(Math.pow(f(n),2)+f).slice(0,4):1111

<input id=I type="number" step="1" min="1" value="1"><button onclick="console.log(f(I.value))">Run</button>

หมายเหตุ: สิ่งนี้ใช้Math.powเพราะ**ไม่ได้รับการสนับสนุนในเบราว์เซอร์ทั้งหมด

Haskell, 40 ไบต์

((iterate(read.take 4.show.(^2))1111)!!)

มันเป็นลำดับที่ 0 ตัวอย่างการใช้งาน: ->((iterate(read.take 4.show.(^2))1111)!!) 794717

มันทำงานอย่างไร:

iterate (   ) 1111               -- repeatedly apply a function starting
                                 -- with 1111 and collect the results in a list
                                 -- the function is
           (^2)                  -- square
        show                     -- turn into string
     take 4                      -- take the first 4 chars
  read                           -- turn back to number
                     !!          -- finally pick the nth element from the list         

Mathematica, 48 ไบต์

Nest[⌊10^(3-⌊t=2Log[10,#]⌋+t)⌋&,1111,#]&

ฟังก์ชั่นที่ไม่มีชื่อการโต้แย้งอาร์กิวเมนต์จำนวนเต็ม; 0 การจัดทำดัชนี ใช้อักขระสามไบต์สี่ตัว⌊⌊⌋⌋ : Mathematica ใช้อย่างใดอย่างหนึ่งFloor[x]หรือ⌊x⌋เพื่อปัดเศษจำนวนจริงลงไปเป็นจำนวนเต็มและส่วนหลังคือไบต์ที่น้อยกว่า ชื่อคำสั่งใน Mathematica สำหรับการแปลงจำนวนเต็มเป็นสตริงยาวเกินไปดังนั้นเราจึงทำการคำนวณทางคณิตศาสตร์เพื่อหาตัวเลขสี่หลักแรกของ x ^ 2: เราใช้ลอการิทึมฐาน 10 ของ x ^ 2 ลบส่วนจำนวนเต็มเพิ่ม 10 กลับสู่พลังนั้นและคูณด้วย 1,000 และปัดเศษลง

tl; dr: ลอการิทึม ftw

Python 2, 51 46 44 Bytes

ฉันต้องการกำจัด clunky ifถ้าเป็นไปได้ แต่ฉันคิดว่าexecอาจสั้นกว่านี้ได้ ..เปิดออกตอนที่execสั้นกว่านี้ ผิดอีกครั้ง! ฟังก์ชันเรียกซ้ำจะส่งคืน นี่คือหนึ่งดัชนี

f=lambda n:1111*(n<2)or int(`f(n-1)**2`[:4])

โซลูชัน 46 ไบต์ทางเลือกพร้อมด้วยexec:

s=1111;exec's=int(`s*s`[:4]);'*input();print s

โซลูชันแบบเรียกซ้ำ 49 ไบต์ทางเลือก:

f=lambda n,s=1111:s*0**n or f(n-1,int(`s*2`[:4]))

^{ขอบคุณ Flp.Tkc สำหรับการบันทึกไบต์โดยเตือนฉันว่าการยกกำลังสองไม่จำเป็นต้องมีการยกกำลัง :)}

V , 19 ไบต์

4é1Àñ|C="*"
5|D

ลองออนไลน์!

สิ่งนี้ใช้การจัดทำดัชนีแบบ 0

แน่นอนเนื่องจากตัวเลขไม่ได้อยู่ตรงหน้ามือขวาของ V เลยนี่มันช่างไม่ค่อยเก่งนัก อย่างไรก็ตามมันแสดงให้เห็นถึงข้อดีข้อหนึ่งที่ V ได้รับมากกว่า คุณสามารถเรียกใช้แมโคร0ครั้งซึ่งเป็นไปไม่ได้ในกลุ่มเนื่องจาก '0' เป็นคำสั่งที่ไม่นับ

มีอักขระที่ไม่สามารถพิมพ์ได้มากมายดังนั้นนี่คือ hexdump:

0000000: 34e9 31c0 f17c 4312 3d12 222a 1222 0a1b  4.1..|C.=."*."..
0000010: 357c 44                                  5|D

และนี่คือเวอร์ชันที่อ่านได้:

4é1Àñ|C<C-r>=<C-r>"*<C-r>"
<esc>5|D

คำอธิบาย:

4                           " 4 times:
 é1                         " Insert a '1'
   Àñ                       " Arg1 times:
     |                      "   Move to the first character on this line
      C                     "   Delete this whole line and enter insert mode
       <C-r>=               "   Insert the following evaluated as vimscript:
             <C-r>"         "     Insert what we just deleted
                   *        "     Times
                    <C-r>"  "     What we just deleted
<esc>                       "   Escape to normal mode
     5|                     "   Move to the fifth column on this line
       D                    "   And delete until the end of this line
                            " The second 'ñ' is added implicitly

เจลลี่ , 12 9 ไบต์

-3 ไบต์ขอบคุณเดนนิสที่ใช้การจัดทำดัชนีแบบ 1 รายการและṁอะตอม / การก่อตัวของอะตอมใหม่ ยินดีต้อนรับคำแนะนำการเล่นกอล์ฟ! ลองออนไลน์!

²Dṁ4Ḍ
1Ç¡

Ungolfing

Helper link
²       Square.
 D      Integer to decimal (a list of digits).
  ṁ4    Mold/reshape list_of_digits to be 4 digits long.
    Ḍ   Decimal to integer.

Main link: implicit left argument n
1     Start with the nilad 1.
 Ç¡   Call the helper link n times.

Perl, 37 ไบต์

รหัส 36 ไบต์ + -pธง

$\=1x4;$\=substr$\*$\,0,4while--$_}{

วิธีเรียกใช้:

perl -pe '$\=1x4;$\=substr$\*$\,0,4while--$_}{' <<< 80

Powershell, 73 55 ไบต์

ขอบคุณมากสำหรับ TimmyD สำหรับการกำจัดขนาด 18 ไบต์!

รหัส:

for($A=1111;$args[0]---1;$A=-join"$(+$A*$A)"[0..3]){}$A

$A=1111;1..($n=2)|%{[string]$B=[math]::pow($A,2);$A=$B.substring(0,4)};$A

$nคือnในx _n-1

คำอธิบายและรหัสระเบิด:

$A=1111                            #starting number
$n=4                               #n in formula
for($i=0; $i -lt $n;$i++)          #loop n times
{
    [string]$B=[math]::pow($A,2)   #create a new string $B and set it to $A raised to the power of 2
    $A=$B.substring(0,4)           #set $A to the first 4 characters of $B
}
$A                             #print $A

หมายเหตุบางส่วน:

• Powershell ช่วยให้คุณสามารถกำหนดตัวแปรในข้อความเดียวกันกับที่คุณอ้างอิงได้ ตัวอย่างเช่น1..($n=4)|%จะตั้งค่า $ n เป็น 4 จากนั้นเริ่มวนซ้ำที่เรียกใช้ $ n ครั้ง 1สามารถเปลี่ยนเป็นจำนวนเต็มใด ๆ และมันจะวน $ n- [จำนวนเต็มของคุณ] +1 ครั้ง
• ประเภทข้อมูลเริ่มต้นเมื่อใช้[math]::ใน Powershell เป็นสองเท่า ในโค้ดข้างต้นเราต้องส่ง$Bไปยังสตริงอย่างชัดเจนเพื่อให้เราสามารถเรียก.substring()ใช้มันได้เนื่องจากไม่มี.substring()ฟังก์ชันสำหรับคู่ใน Powershell

Python 2,  44  41 ไบต์

-3 ไบต์ขอบคุณ xnor (ใช้การหารจำนวนเต็มเพื่อหลีกเลี่ยงand)

f=lambda n:int(1/n*1111or`f(n-1)**2`[:4])

repl.it

ฟังก์ชั่นแบบเรียกซ้ำ 1

เมื่อn>1การหารจำนวนเต็ม1/n, ส่งผล0ให้, 0*1111=0ซึ่งเป็นเท็จ, ดังนั้นทางด้านขวาของorจะถูกประเมิน, ซึ่งใช้อักขระสี่ตัวแรกของการแทนค่ากำลังสองของn-1ผลลัพธ์ที่สอง; intนี้ถูกโยนจากนั้นไปยัง

เมื่อn=1แบ่งจำนวนเต็มให้1/nผลในการ1แล้ว1*1111=1111ซึ่งเป็น truthy และint 1111โยนไปยังเป็นint1111

Groovy ขนาด 49 ไบต์

{x=1111;(it-1).times{x="${x**2}"[0..3] as int};x}

Pyke ขนาด 10 ไบต์

1RVX`4*4<b

ลองที่นี่!

MATL , 14 , 13 ไบต์

1111G:"UV4:)U

ลองออนไลน์!

คำอธิบาย:

1111            % Push 1111
    G           % Push input
     :"         % Input times:
       U        %   Square the top of the stack
        V       %   Convert it to a string
         4:)    %   Take the first four digits
            U   %   Convert it back to a number
                % Implictly display

R, 58 56 55 53 53 ไบต์

x=3334;for(e in N<-scan():1)x=x^2%/%10^(3+(x>3162));x

นำNมาจาก stdin 3334 นั้นใช้งานได้จริง X_0 ซึ่งเป็นสิ่งจำเป็นเนื่องจาก for-loop จะต้องดำเนินการอย่างน้อยหนึ่งครั้ง (มันจะข้ามได้นานกว่า)

R เป็นภาษาที่แย่มากสำหรับการรับตัวเลขสี่หลักแรกของตัวเลข แต่เนื่องจากจำนวนคดีมี จำกัด เราจึงต้องกังวลเกี่ยวกับกำลังสองx<3163และx>3162เมื่อก่อนให้ผลเป็นตัวเลข 6 หลักหลังตัวเลข 7 หลัก .

ที่เหลือค่อนข้างตรงไปตรงมา %/%แบ่งและละเว้นส่วนที่เหลือxถูกพิมพ์ไปยัง stdout

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

Javagony - 153 ไบต์

Javagony เป็นเวอร์ชัน จำกัด ของ Java ซึ่งไม่อนุญาตให้มีโฟลว์การควบคุมใด ๆ ยกเว้นการเรียกซ้ำและtry-catchไม่ใช้ลูปในขณะที่ลูปหรือหากเป็น การเขียนโค้ดในนั้นเป็นแบบฝึกหัดที่สนุก แต่ก็น่าหงุดหงิด ไม่ใช่จาวาปกติที่ไม่น่าแปลกใจ

int a(int i){return a(i-1,1111);}int a(int i,int n){try{int x=1/i;return a(i-1,Integer.parseInt((n*n+"").substring(0,4)));}catch(Exception e){return n;}}

PHP, 55 52 ไบต์

บันทึกแล้ว 3 ไบต์ด้วย @ user59178

for($i=1111;$argv[1]--;)$i=substr($i**2,0,4);echo$i;

เรียกใช้จากบรรทัดคำสั่ง zero-indexed

ขอบคุณที่ไม่ใส่ใจว่าตัวแปรของฉันคืออะไร PHP! ที่นี่เราเพียงแค่ใส่จำนวนและตัดทุกอย่างที่ผ่านตัวเลข 4 ตัวแรกสลับกันระหว่างตัวเลขกับสตริงโดยไม่สนใจโลก

Brachylogขนาด 18 ไบต์

,1111:?:{^@[.l4,}i

ลองออนไลน์!

คำตอบนี้ถูกจัดทำดัชนี 0

คำอธิบาย

,1111:?:{       }i      Iteratively call Input times the predicate in brackets starting with
                          input 1111:

         ^                  Square
          @[.               Output is a prefix of the square
            .l4,            Its length is 4

C, 56 bytes

a;s(n){for(a=1111;--n;)a=a*a/(a>3162?1e4:1e3);return a;}

One-indexed.

Clojure, 76 bytes

(defn s[n](if(= n 1)1111(read-string(subs(str(*(s(dec n))(s(dec n))))0 4))))

First Clojure golf (seems like a nice language). This is 1-indexed.

Will explain the code later.

C#, 64 60 bytes

Saved 4 bytes by following Olivier Grégoire's comment on a Java answer!

n=>{int x=1111;for(;n-->1;)for(x*=x;x>1e4;x/=10);return x;};

Previous version (64 bytes):

n=>{int x=1111;while(n-->1){x*=x;while(x>9999)x/=10;}return x;};

Full program with ungolfed method and test cases:

using System;

namespace SquaringSequence
{
    class Program
    {
        static void Main(string[] args)
        {
            Func<int, int> f = n =>
            {
                int x = 1111;
                while (n-- > 1)
                {
                    x *= x;
                    while (x > 9999)
                        x /= 10;
                }
                return x;
            };

            // test cases:
            Console.WriteLine(f(1));    // 1111
            Console.WriteLine(f(8));    // 6840
            Console.WriteLine(f(15));   // 7584
            Console.WriteLine(f(20));   // 1425
            Console.WriteLine(f(80));   // 4717
        }
    }
}

Ruby, 47 bytes

First golf! Saves bytes with -n option (but still count as 1! :)).

a=1111;$_.to_i.times{a="#{a*a}"[0,4].to_i};p a

0-indexed. To run it:

ruby -ne 'a=1111;$_.to_i.times{a="#{a*a}"[0,4].to_i};p a' <<< 80

Pyth, 13 12 bytes

Thanks to @Jakube for -1 byte

us<*4`*GG4Q1

A program that takes input of a 1-indexed integer and prints the result.

Test suite

This uses a similar approach to @Adnan's answer.

How it works

us<*4`*GG4Q1  Program. Input: Q
u         Q1  Execute the following Q times, starting at 1, with variable G:
      *GG      Yield G*G
     `          Convert to string
   *4           Repeat 4 times
  <      4      Yield first 4 characters
 s              Convert to integer
              Implicitly print

CJam, 15 bytes

'14*ri{i2#s4<}*

Uses 0-based indexing.

Try it online!

Batch, 82 bytes

@set n=1111
@for /l %%i in (1,1,%1)do @set/an*=n&call set n=%%n:~0,4%%
@echo %n%

Like Perl, integers are strings, but unlike Perl I can only take the substring of a variable, and taking substrings inside a loop is somewhat awkward.

Perl 6, 36 bytes

{(1111,{+$_².substr(0,4)}...*)[$_]}

Explanation:

{                                 } # bare block lambda
  1111,                  ...        # sequence generator
                            *       # without a limit
       {                }           # lambda used to generate the next value
         $_²                        # start by squaring the previous value
            .substr(0,4)            # take only the first four digits
        +                           # make it numeric ( not necessary )
 (                           )[$_]  # return the requested value

Test:

say {(1111,{+$_².substr(0,4)}...*)[$_]}( 1,8,15,20,80 X- 1 ).perl
# (1111, 6840, 7584, 1425, 4717)

Matlab, 79, 78 Bytes

function a=s(n)
if n<2;a=1111; else f=s(n-1);a=fix(f^2/10^(3+(f>1e7^.5)));end

Test cases:

s(79) = 2172
s(49) = 8059
s(6)  = 2876

Not an amazing solution. I'm sure there must be a better way to truncate to 4 digits but I don't know today.

Edit: Shaved a byte by setting 0.5 -> .5

Java 8, 77 93 74 71 69 78 bytes

int n=1111;int m=1;while(x>m++){n=Integer.parseInt((n*n+"").substring(0,4));}

x->{int n=1111;int m=1;while(x>m++){n=Integer.parseInt((n*n+"").substring(0,4))‌​;}return n;}

x->{int n=1111;for(;--x>0;){n=Integer.parseInt((n*n+"").substring(0,4));}}

x->{long n=1111;for(;--x>0;){n=Long.valueOf((n*n+"").substring(0,4));}}

x->{long n=1111;for(;--x>0;)n=Long.valueOf((n*n+"").substring(0,4));return n;}

Each repetition makes n the first 4 characters of n*n.

Try Java online!

Post history:

• 77 bytes: initial code (incomplete)

• +16 bytes, by Olivier Grégoire: completed code by making it a Lambda function.

• -19 bytes: replace while with for cycle.

• -4 bytes: used longs instead of ints

• -2 bytes, by Roman Gräf: removed unnecessary brackets

• +9 bytes, missing return statement

Thanks to @OlivierGrégoire and @RomanGräf for pointing out some issues!

Wait, Java beats... (drumroll) Clojure and Matlab here! A big applause to Java please!

Perl, 36 bytes

A different approach from the other Perl solution, leading to slightly shorter code. No command-line arguments are needed (other than the usual version selection argument, -M5.010, which doesn't count against the byte count), meaning that this is the same amount of code but with fewer penalties, giving a better overall score.

say+eval'($&*$&||1x4)=~/(....)/;'x<>

We create a loop Underload-style via repeating and eval-ing a string; I experimented with starting the string in the middle, but starting it at the start turns out to be shortest. We multiply $& (the result of the last regex match) by itself to square it; if the result's zero, we use 1x4 (i.e. 1111; Perl has an operator for repeating things, including digits of a number) instead of the result. Then we regex the first four characters. The whole thing runs in list context due to being inside say, thus the final result of the eval will be the contents of the parentheses of the final match.

Java, 79 67 66 64 bytes

• Version 2.2/64 bytes:

Thanks to @Oliver Grégoire.

int a(int i){i=i<2?1111:a(--i);for(i*=i;i>1e4;)i/=10;return i;}

• Version 2.1/66 bytes:

Thanks to @ETHProduction.

long a(long i){i=i<2?1111:a(--i);for(i*=i;i>1e4;)i/=10;return i;}

• Version 2.0/67 bytes:

Replaced substring and stuff with the idea from @Xanderhall

long a(long i){i=i<2?1111:a(--i);i*=i;for(;i>1e4;)i/=10;return i;}

• Version 1.0/79 bytes:

Although there are shorter solutions I wanted to post one recursive:). And I am the shortest "real" function:). Edit: Seems like I am the shortest now:)))

long a(long i){i=i<2?1111:a(--i);return Long.valueOf((i*i+"").substring(0,4));}

Pushy, 26 20 bytes

1111@:2esL4-:.;Kjk;#

Give arguments on the commandline: $ pushy sqseq.pshy 79.

Nicely formatted, with explanation:

            % Implicit: N is on stack
1111@       % Push 1111, and then reverse stack to get [1111, n]
:           % N times do: (this consumes N)
 2e         %   Square last term
 s          %   Split into individual digits
 L4-:.;     %   Get stack length -4, pop that many times
 Kj         %   Join remaining digits (Uses flag "K" for whole stack)
 k          %   Set "K" flag to false, so operations only affect last item
;           % End loop.       
#           % Output final calculated term