配列内のある場所を指すポインターを持つ長さ配列がとします。「ポインタージャンプ」のプロセスは、すべてのポインターを、ポインターが指す場所に設定します。$\texttt{ps}$$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]}$$

そのため、「ポインタージャンプ」を1回繰り返した後、配列を取得し。$\texttt{[4,1,3,1,1,3]}$

チャレンジ

インデックスのある配列が与えられると、配列が変化しなくなるまで、上記のポインタのジャンプを繰り返して得られた配列を出力します。

ルール

あなたのプログラム/関数は、同じタイプ、リスト/ベクトル/配列などを受け取り、返し/出力します。

• 空でないことが保証され、
• エントリのみが含まれることが保証されます。$0 \leq p < 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に感謝します。

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

オンラインでお試しください！

Swift、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（clang）、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]];}

オンラインでお試しください！

ルビー、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バイト

ルールを読んでくれた@digEmAllに感謝-2バイト。

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-1回目の終わりまでに定常状態が達成されると思います。証拠は読者に任されています。

Common Lisp、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バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。悲しいことに、すべての通常のマッピング関数は配列のコピーでのみ動作し、結果として、要素をジャンプするのではなく単に並べ替えるだけなので、コードはすべて手動で行う必要があります。説明：

Ｆθ

要素ごとに内側のループを1回繰り返します。これにより、結果が安定することが保証されます。

ＦＬθ

配列インデックスをループします。

§≔θκ§θ§θκ

現在のインデックスで配列要素を取得し、それを使用して配列にインデックスを付け、現在の要素をその値に置き換えます。

Ｉθ

要素を文字列にキャストし、それぞれを独自の行に暗黙的に印刷します。

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←⍵}⍣≡

オンラインでお試しください！