สมมติว่าเรามีอาเรย์ของความยาวพร้อมพอยน์เตอร์ที่ชี้ไปยังตำแหน่งบางอย่างในอาเรย์: กระบวนการของ " การกระโดดตัวชี้ " จะตั้งค่าตัวชี้ทุกตำแหน่งที่ตัวชี้ไปยังจุด$\texttt{ps}$$n$

สำหรับวัตถุประสงค์ของการท้าทายนี้เป็นตัวชี้เป็น (zero-based) ดัชนีขององค์ประกอบของอาร์เรย์นี้แสดงให้เห็นว่าองค์ประกอบในอาร์เรย์ทุกคนจะมีค่ามากกว่าหรือเท่ากับและน้อยกว่าn การใช้สัญกรณ์นี้สามารถกำหนดสูตรได้ดังนี้:$0$$n$

for i = 0..(n-1) {
  ps[i] = ps[ps[i]]
}

ซึ่งหมายความว่า (สำหรับการท้าทายนี้) ที่พอยน์เตอร์ได้รับการอัปเดตในลำดับตามลำดับ (เช่น. ดัชนีที่ต่ำกว่าก่อน)

ตัวอย่าง

ลองทำตัวอย่าง$\texttt{ps = [2,1,4,1,3,2]}$ :

$$\texttt{i = 0}: \text{the element at position }\texttt{ps[0] = 2}\text{ points to }\texttt{4} \\ \to \texttt{ps = [4,1,4,1,3,2]} \\ \texttt{i = 1}: \text{the element at position }\texttt{ps[1] = 1}\text{ points to }\texttt{1} \\ \to \texttt{ps = [4,1,4,1,3,2]} \\ \texttt{i = 2}: \text{the element at position }\texttt{ps[2] = 4}\text{ points to }\texttt{3} \\ \to \texttt{ps = [4,1,3,1,3,2]} \\ \texttt{i = 3}: \text{the element at position }\texttt{ps[3] = 1}\text{ points to }\texttt{1} \\ \to \texttt{ps = [4,1,3,1,3,2]} \\ \texttt{i = 4}: \text{the element at position }\texttt{ps[4] = 3}\text{ points to }\texttt{1} \\ \to \texttt{ps = [4,1,3,1,1,2]} \\ \texttt{i = 5}: \text{the element at position }\texttt{ps[5] = 2}\text{ points to }\texttt{3} \\ \to \texttt{ps = [4,1,3,1,1,3]}$$

ดังนั้นหลังจากที่หนึ่งในการทำซ้ำของ " ตัวชี้กระโดด " เราได้รับอาร์เรย์$\texttt{[4,1,3,1,1,3]}${[4,1,3,1,1,3]}

ท้าทาย

รับอาร์เรย์ที่มีดัชนีเอาท์พุทอาร์เรย์ที่ได้รับจากการวนซ้ำตัวชี้ที่อธิบายไว้ข้างต้นการกระโดดจนกว่าอาร์เรย์จะไม่เปลี่ยนอีกต่อไป

กฎระเบียบ

โปรแกรม / ฟังก์ชั่นของคุณจะรับและส่งคืน / ส่งออกชนิดเดียวกันรายการ / เวกเตอร์ / อาร์เรย์เป็นต้น

• รับประกันว่าจะไม่ว่างเปล่าและ
• รับประกันได้ว่าจะมีเพียงรายการ$0 \leq p < n$<n

พันธุ์:คุณอาจเลือก

• เพื่อใช้การจัดทำดัชนีแบบ 1 หรือ
• ใช้ตัวชี้ที่แท้จริง

อย่างไรก็ตามคุณควรพูดถึงเรื่องนี้ในการส่งของคุณ

กรณีทดสอบ

[0] → [0]
[1,0] → [0,0]
[1,2,3,4,0] → [2,2,2,2,2]
[0,1,1,1,0,3] → [0,1,1,1,0,1]
[4,1,3,0,3,2] → [3,1,3,3,3,3]
[5,1,2,0,4,5,6] → [5,1,2,5,4,5,6]
[9,9,9,2,5,4,4,5,8,1,0,0] → [1,1,1,1,4,4,4,4,8,1,1,1]

JavaScript ขนาด 36 ไบต์

ปรับเปลี่ยนอาร์เรย์อินพุตต้นฉบับ

a=>a.map(_=>a.map((x,y)=>a[y]=a[x]))

ลองออนไลน์

Haskell, 56 ไบต์

foldr(\_->([]#))=<<id
x#a@(b:c)=(x++[(x++a)!!b])#c
x#_=x

การปรับปรุง Haskell และแบบแทนที่เป็นการจับคู่ที่ไม่ดี

ลองออนไลน์!

Python 2 , 53 ไบต์

def f(l):L=len(l);i=0;exec'l[i]=l[l[i]];i=-~i%L;'*L*L

ลองออนไลน์!

-6 ขอบคุณที่HyperNeutrino

alters lเพื่อผลในสถานที่

C ++ 14 (gcc) , 61 ไบต์

ในฐานะแลมบ์ดาทั่วไปที่ไม่มีชื่อ std::vectorต้องใช้ภาชนะบรรจุตามลำดับเช่น

[](auto&c){auto d=c;do{d=c;for(auto&x:c)x=c[x];}while(d!=c);}

ลองออนไลน์!

สวิฟต์ , 68 53 ไบต์

{a in for _ in a{var i=0;a.forEach{a[i]=a[$0];i+=1}}}

ลองออนไลน์!

-15 ขอบคุณ BMO

JavaScript (ES6), 41 ไบต์

f=a=>a+''==a.map((x,i)=>a[i]=a[x])?a:f(a)

ลองออนไลน์!

05AB1E (ดั้งเดิม) 8 ไบต์

ΔDvDyèNǝ

ลองออนไลน์!

คำอธิบาย

Δ          # apply until the top of the stack stops changing
 D         # duplicate current list
  v        # for each (element y, index N) in the list
   Dyè     # get the element at index y
      Nǝ   # and insert it at index N

05AB1E , 14 ไบต์

[D©vDyèNǝ}D®Q#

ลองออนไลน์!

Japt, 15 13 7 ไบต์

ปรับเปลี่ยนอาร์เรย์อินพุตต้นฉบับ

££hYXgU

ลองใช้ (ไบต์เพิ่มเติมคือการเขียนอินพุตดัดแปลงไปยังคอนโซล)

££hYXgU
£           :Map
 £          :  Map each X at index Y
  hY        :    Replace the element at index Y
    XgU     :    With the element at index X

Java 8, 105 54 ไบต์

a->{for(int l=a.length,i=0;i<l*l;)a[i%l]=a[a[i++%l]];}

ปรับเปลี่ยนอินพุตอาร์เรย์แทนที่จะส่งคืนใหม่เพื่อบันทึกไบต์

$length^2$

ลองออนไลน์

คำอธิบาย:

a->{                // Method with integer-array parameter and no return-type
  int l=a.length,   //  Length of the input-array
  i=0;i<l*l;)       //  Loop `i` in the range [0, length squared):
    a[i%l]=         //   Set the (`i` modulo-length)'th item in the array to:
      a[            //    The `p`'th value of the input-array,
        a[i++%l]];} //    where `p` is the (`i` modulo-length)'th value of the array

Japt , 17 ไบต์

®
£hYUgX
eV ?U:ß

ลองกรณีทดสอบทั้งหมด

รู้สึกว่าควรสั้นกว่านี้ แต่น่าเสียดายที่ความคิดเริ่มแรกของฉันUmgUไม่ทำงานเพราะแต่ละคนgเข้าถึงต้นฉบับUแทนที่จะแก้ไขในแต่ละขั้นตอน การเก็บรักษาส่วนประกอบที่แตกต่างกันอย่างเหมาะสมก็จะต้องเสียค่าใช้จ่ายเพียงไม่กี่ไบต์เช่นกัน

คำอธิบาย:

           #Blank line preserves input in U long enough for the next line

®          #Copy U into V to preserve its original value

£hY        #Modify U in-place by replacing each element X with...
   UgX     #The value from the current U at the index X

eV ?U      #If the modified U is identical to the copy V, output it
     :ß    #Otherwise start again with the modified U as the new input

C (เสียงดังกราว) , 32- บิต, 49 44 ไบต์

i;f(**p,n){for(i=0;i<n*n;)p[i++%n]=*p[i%n];}

ลองออนไลน์!

ใช้พอยน์เตอร์

50 45 ไบต์ที่มีจำนวนเต็ม:

i;f(*p,n){for(i=0;i<n*n;)p[i++%n]=p[p[i%n]];}

ลองออนไลน์!

Ruby , 37 34 ไบต์

->a{a.size.times{a.map!{|x|a[x]}}}

ลองออนไลน์!

ส่งคืนโดยการแก้ไขอาร์เรย์อินพุตในสถานที่

สีแดง 63 ไบต์

func[b][loop(l: length? b)* l[repeat i l[b/:i: b/(1 + b/:i)]]b]

ลองออนไลน์!

ปรับเปลี่ยนอาร์เรย์ในสถานที่

R , 60 58 ไบต์

-2 ไบต์ต้องขอบคุณ @digEmAll สำหรับการอ่านกฎ

function(x,n=sum(x|1)){for(i in rep(1:n,n))x[i]=x[x[i]];x}

ลองออนไลน์!

1 การจัดทำดัชนี

n คือความยาวของอินพุตอาร์เรย์

rep(1:n,n)ทำซ้ำ1:n nครั้ง (เช่นn=3 => 1,2,3,1,2,3,1,2,3)

วนnซ้ำผ่านอาร์เรย์ ตอนนี้รัฐคงตัวจะต้องเจ็บปวดแน่ ๆ ในความเป็นจริงในตอนท้ายของ n-1st ครั้งที่ฉันคิด หลักฐานจะถูกทิ้งไว้ที่เครื่องอ่าน

เสียงกระเพื่อมสามัญ, 59 58 ไบต์

(lambda(a)(dolist(j a)(map-into a(lambda(x)(elt a x))a))a)

ลองออนไลน์!

ทำความสะอาด , 80 ไบต์

import StdEnv

limit o iterate\b=foldl(\l i=updateAt i(l!!(l!!i))l)b(indexList b)

ลองออนไลน์!

Clojure 136 ไบต์

(defn j[a](let[f(fn[a](loop[i 0 a a](if(= i(count a))a(recur(inc i)(assoc a i(a(a i)))))))](loop[p nil a a](if(= p a)a(recur a(f a))))))

ลองออนไลน์!

Perl 5, 35 34 26 ไบต์

การใช้ความจริงที่ว่าการลู่เข้าใกล้ได้มากที่สุดสำหรับจำนวนการวนซ้ำ

$_=$F[$_]for@F x@F;$_="@F"

26 ไบต์

$_=$F[$_]for@F;/@F/ or$_="@F",redo

34 ไบต์

$_=$F[$_]for@F;$_="@F",redo if!/@F/

35 ไบต์

Clojure , 88 ไบต์

#(reduce(fn[x i](assoc x i(get x(get x i))))%(flatten(repeat(count %)(range(count %)))))

ลองออนไลน์!

ถ่าน 16 ไบต์

ＦθＦＬθ§≔θκ§θ§θκＩθ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด น่าเสียดายที่ฟังก์ชั่นการทำแผนที่ตามปกติทั้งหมดทำงานเฉพาะในสำเนาของอาเรย์เท่านั้นโดยผลก็คือพวกมันเพียงแค่สับเปลี่ยนองค์ประกอบแทนที่จะกระโดดพวกมันดังนั้นรหัสจึงต้องทำทุกอย่างด้วยตนเอง คำอธิบาย:

Ｆθ

ทำซ้ำลูปภายในหนึ่งครั้งสำหรับแต่ละองค์ประกอบ สิ่งนี้ช่วยให้มั่นใจได้ว่าผลลัพธ์จะคงที่

ＦＬθ

วนรอบดัชนีอาร์เรย์

§≔θκ§θ§θκ

รับองค์ประกอบอาร์เรย์ที่ดัชนีปัจจุบันใช้องค์ประกอบนั้นเพื่อทำดัชนีเข้าไปในอาร์เรย์และแทนที่องค์ประกอบปัจจุบันด้วยค่าดังกล่าว

Ｉθ

ส่งองค์ประกอบไปยังสตริงและพิมพ์โดยปริยายบนบรรทัดของตนเอง

F #, 74 73 ไบต์

fun(c:'a[])->let l=c.Length in(for i in 0..l*l do c.[i%l]<-c.[c.[i%l]]);c

ไม่มีอะไรพิเศษ. ใช้ความคิดโมดูลัสที่เห็นในคำตอบอื่น ๆ

K, 27 ไบต์

{{@[x;y;:;x x y]}/[x;!#x]}/

• {..}/ ใช้แลมบ์ดา {.. } เหนือ arg (จนกระทั่งลู่เข้าหากัน)

• ภายในแลมบ์ดาภายนอก:

  • {..}/[x;y]ใช้แลมบ์ดาซ้ำมากกว่า x (อัปเดตในแต่ละรอบซ้ำ) และรายการของ y (y คือรายการของค่าและใช้รายการในแต่ละรอบซ้ำ) ในกรณีนี้ arg y คือ!#x(จนกระทั่งนับ x, นั่นคือ, ดัชนีของอาร์เรย์)

  • @[x;y;:;x x y] แก้ไขอาร์เรย์ x (ที่ดัชนี y มอบหมาย x [x [y]])

APL (Dyalog Unicode) , 26 ไบต์^SBCS

ต้องใช้ ⎕IO←0

{m⊣{m[⍵]←m[m[⍵]]}¨⍳≢m←⍵}⍣≡

ลองออนไลน์!