プロパティに従うシーケンスに本当に興味があります

$a(n+1) = a(n - a(n))$

最近、これらのシーケンスに関する別の質問があります。特に、整数から自然数までのシーケンスに関係しています。

上記のプロパティを持つ周期的なシーケンスは、n 個の異なる値が含まれている場合に限り、n -Juggler です。たとえば、次のシーケンスは2ジャグラーです。

... 2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1,2,2,1 ...

数字1とのみが含まれているため2です。

3つのジャグラーの例は

... 3,5,3,5,1,5,3,5,3,5,1,5,3,5,3,5,1,5,3,5,3,5,1,5,3,5,3,5,1,5,3,5,3,5,1,5 ...

それはjugglesので1、3、と5。

仕事

所与のn> 1の入力、出力任意としてN -Juggler。

シーケンスはさまざまな方法で出力できます。

• インデックスを付ける関数を出力します。

• インデックスの追加入力を受け取り、そのインデックスの値を出力します。

• 指定されたプロパティでシーケンスを一意に決定するシーケンスの連続したサブセクションを出力します。

これはコードゴルフなので、回答はバイト単位でスコアリングされ、バイト数が少ないほど優れています。

Pyth、5バイト

t+*%E

試してみてください2、3、4つのジャグラーを。

改行で区切られたこの順序で、NとIの 2つの数値を受け取ります。私はシーケンスのインデックスです。

これは非常に単純な式を使用します：N-1 + N *（I％N）。その妥当性はOPによって確認されました。

CJam、9

これはどう？

q~1$,=)*(

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

入力はn i、nはメイン入力でありi、値を取得するインデックスです。

説明：

q~    read and evaluate the input (n and i)
1$    copy n
,=    basically this is a modulo (i%n) that avoids a negative result for negative i
)*    increment, then multiply by n
(     decrement

Haskell、17バイト

n!i=i`mod`n*n+n-1

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

Xcoder氏のアイデアを使用した別の回答。正直に言えば、質問に答えることはできません。：P

Python 2、20バイト

lambda n,i:i%n*n+n-1

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

Xcoder氏の回答と同じ原則

Java 8、15バイト

n->i->i%n*n+n-1

@ Mr.XcoderのPyth回答の退屈なポート。

ここで試してください。

ゼリー、5バイト

Ɠ%×+’

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

Xcoder氏のアプローチの移植。インデックスIはSTDINにあり、Nは引数です。